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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
programs! All you need to 
know is in... 



ALL 

ONLY 

$19.95 

plus $1 shipping 




INCLUDES: 

SUPERMAP 

From Fuller Software ($18,95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phillipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blank 
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VISA 



ORDER TOLL-FREE 

(in NH call 673-5144) 



A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



1-800-258-1790 
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Hoi pursuit 
through space 
and the 
vortices 
oi time! 





a. PRESENTS. 



Cini« to?d 

The fallen Time Lord, who presumptuously calls himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
TARDIS, and commissioned you to eliminate the evil "Master". Your resources in- 
clude clones who will fight for you, thejormidable CRASER weapons of the TARDIS, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Travelling through hyperspace in search of the evil one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 



Based on Dr. Who of PBS fame. 
Apple Integer Basic, 
Disk, 48K . . . $29.95 
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A New Generation of Role Playing Adventures 

With all new monsters and treasures never before encountered, The Quest 
for the Arm of St. Elsinore is the premiere module in the World of Beysycx 

series of role playing adventures. 

The World of Beysycx series was created for use with the popular Advanced 
Dungeons & Dragons (tm) gaming system, and is designed as the ultimate in 
DM playing aids. Each module comes with graphic cardboard map pieces and 
two fully illustrated booklets detailing the scenario and showing every monster 
nd every treasure. 
To order, send $6.95 (plus $1.00 shipping) to: 

SoftSide Publications 
6 South Street 



Milford, NH 03055 



Advanced Dungeons & Dragons is a 
registered trademark of TSR Hobbies, 
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The Magazine of the Future 

by Jon Voskuil 



In the beginning there was an idea 
for a new magazine, "conceived and 
born within four weeks of frantic ac- 
tivity... fraught with all the rough 
edges that any fledgling publication is 
heir to." This new magazine was 
dedicated to that side of personal 
computing "which allows us to 
realize our expectations, our fan- 
tasies, our dreams." The editors 
edited, the publishers published, and 
the printers printed, and there ap- 
peared not just another computer 
magazine, but SoftSide — "Your 
BASIC Software Magazine." 

This birth took place in the almost- 
forgotten ancient time of October, 
1978, and was followed by normal 
growth pains as SoftSide concen- 
trated on publishing good, usable 
programs for owners of S-80 
microcomputers. 

In the course of time two other 
magazines were conceived and born 
under SoftSide's roof: PROG/80 in 
March of 1979 and The S-8IGHTY in 
January of 1980. PROG/80 was 
"dedicated to the serious program- 
mer," and supplemented the more 
general character of the programs in 
SoftSide. The S-8IGHTY was not a 
software magazine, but had articles 
delving into various secrets of the 
machine. It also offered to its readers 
very beneficial exposure to indepen- 
dent manufacturers of S-80 
peripherals and software. And, it was 
free. 

It also came to pass, in January of 
1980, that SoftSide began publishing 
an Apple edition of "Your BASIC 
Software Magazine." Much to the 
delight of us Apple owners, the soft- 
ware emphasis was maintained, and 
we finally had a source of good 
printed programs ready to type in — 
not to mention articles that helped 
us to understand what was happening 
while the programs were running. A 
separate edition of SoftSlde 
was also planned for the Atari, but 
it turned out that another major 
change took its place. 

For it happened in the fall of 1980 
(that's less than a year ago, folks) 
that the NEW SoftSide was created. 
Except for The S-8IGHTY, which 
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had been of "normal" magazine size, 
SoftSide in its various editions and 
offshoots had been printed in a small 
booklet format. Suddenly, it became 
a large-format magazine serving not 
one but three computer systems, and 
inside of two months had a glossy 
cover and slick pages to boot. All the 
previous publications were incor- 
porated into the new magazine, and 
everyone who had been getting more 
specialized coverage was invited to 
"enter our (newly expanded) world 
of microcomputing." 

And so it was, and is, that your 
BASIC software magazine has 
evolved into its present form. Which 
brings us at last to the question: 
What lies ahead? 

You must understand that I'm not 
posing this as a question to be 
answered by crystal-ball gazing. It's 
not an inquiry into What Shall Be, 
but into the direction of the thinking 
and planning that are going on in our 
collective mind here at SoftSide. And 
you should be aware that you, as our 
readers, continually furnish input in- 
to that thinking and planning, 
through your letters, through 
surveys, and through personal con- 
tacts at shows around the country. 

Other significant input comes from 
the various technologies associated 
with the Information Age — especial- 
ly the trend toward the storage of in- 
formation on media other than 
paper. Since January of 1979 the 
programs printed in SoftSide have 
been offered optionally on magnetic 
media in machine-readable form. Up 
until now, such tape or disk subscrip- 
tions have not been emphasized, and 
they've attracted only that minority 
of our readers who have been willing 
to buy the obvious convenience. 

Our vision of the SoftSide 
magazine of the future gives the 
disk edition a much bigger role 
than mere convenience. We'd like to 
evolve into a MIXED-media 
magazine, in which the human- 
readable printed material and the 
machine-readable magnetic material 
support and complement one 
another. Printed pages are best suited 
for some kinds of information, and 



magnetic disks best suited for otlier 
kinds; our aim is to take fuller advan- 
tage of the unique strengths of each. 
SoftSide will continue to exist as a 
printed magazine, with the best value 
in software available anywhere. But 
in addition, we'll be working on 
upgrading (and DOWN-pricing) the 
disk edition of our publication to of- 
fer you the magazine of the future — 
today. 

We believe that our unique posi- 
tion as a software magazine will be 
expanded and strengthened by this 
kind of innovation. We also believe 
that you, our subscribers, are in Une 
to receive the greatest benefit from it. 
Some of the specifics of the magazine 
of the future are detailed in the 
Outgoing Mail column elsewhere in 
this issue. Other details will evolve 
over the course of time, and we'll be 
listening closely to the feedback we 
receive from you. Please, tell us what 
you think; give us your ideas; take an 
active role in shaping SoftSide' s 
future. A year or two from now, 
we'll probably be heading in some 
direction that none of us anticipated. 
But then, that's the fate of us non- 
crystal-ball gazers. (3 
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duplicating service 

307 West Main Street 
Maple Shade, NJ 08052 

(609)667-1667 



O • AMP "Data-settle" blank 
cassettes for digital use 

© • Cassette Storage Boxes 

© • Cassette Labels - 

Custom printing & blank 

© •Custom Record Album 

production from your tapes 

® • Stereo and Spoken Word 
cassette duplication 

Call or write to: 




lor mora Intonnation. 

All cassette work at 
AMPR.&D. is custom work 
to fit your needs. 



Take a big byte of the Apple... 




48K RAM 
(#47-203). 



$1299.00 



...and keep nibbling at the edges with 
peripherals, available from TSE HARDSIDE... 



these 



SUP-R-MOD RF Modulator (#47-100) $34.95 

APPLE II Disk Controller w/Drlve (#47-004) $619.00 

APPLE II Disk Drive (#47-005) $499.00 

LOBO Disk Drive (#47-3101) $379.00 

MICROSOFT Z-80 SoftCard (#47-80) $269.00 

MICROSOFT RAMCard (#47-81) $159.00 

Integer BASIC Language Card (#47-10) $195.00 

PASCAL Language Card (#47-PAS) $459.00 

MOUNTAIN COMPUTER Apple Clock (#47-MH003) $269.00 

MOUNTAIN COMPUTER ROMWrlter(#47-MH015) $169.00 

MOUNTAIN COMPUTER ROMPIus w/Filter (#47-MH007) $189.00 

MOUNTAIN COMPUTER Music System (#47-MH022) $519.00 

MOUNTAIN COMPUTER A/D + D/A(#47-MH023) $329.00 

MOUNTAIN COMPUTER Expansion Chasis (#47-MH024) $609.00 

HARDSIDE Memory Upgrade Kit (#5-1102) $39.00 

APPLE Silentype Printer w/lnterface (#47-000) $569.00 

Parallel Printer Card and Cable (#47-9) $100.00 

CCS Arithmetic Processor (#47-781 1C) $399.95 

CCS Asynchronous Serial Interface (#47-771 OA) $159.95 

CCS Synchronous Serial Interface (#47-7721 A) $159.95 

CCS GPIB (IEEE-488) Interface (#47-7490A $300.00 

CCS Calendar/Clock Module (#47-7424A) $125.00 

LYNX Communications Interface (#19-85) $229.00 

KURTA APPLE Graphics Tablet (#47-1000) $659.00 

VERSAWRITER (#47-1100) $239.00 

ALF AM-II Music Synthesizer (#47-1200) $189.00 

LEEDEX 12" BA/V Monitor (#5-100) $159.00 

NEC 12" Monochrome Monitor (#5-200) $239.00 

Color Video Receiver (#26-3010) $389.00 

TERMS: Prices and specifications are subject to 

ctiange. TSE HARDSIDE accepts VISA & ^m ^^^^^ m jQH^gi _in4_ 

MASTERCARD. Certified cfiecks and Money 

Orders. Personal checks accepted (takea 3 weeks 

to clear). TSE HARDSIDE pays (II (hipping 

chargas (within the 48 itataa) on (II PREPAID ^pw^ ^ I %^\^^M^. tfk ■ W^^^ 
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Dear SoftSide, 

I just received your April magazine and 
enjoyed it as usual. 

I glanced through the INPUT section 
and in it I read a letter by Ben Cohen. In 
his letter he complained about the lack of 
Adventure games for the Apple II in the 
magazine. I presume that Ben Cohen and 
the many Apple II owners he speaks for 
don't know that if one makes a program 
and sends it in, that SoftSide might put it 
in their fabulous magazine and even pay 
for it. I always say if you want it done, do 
it yourself. 

Now concerning the usage of the term 
TRaSh-80 in the letter. I assume that Ben 
Cohen and the other people who use the 
childish term don't use the S-80 and the 
Apple on a daily basis. I own an S-80 and 
I use an Apple II + at school and I find 
that they are both very good computers. 

Ryan Smith 
Leucadia, CA 

Dear SoftSide, 

Very clever! I found the egg (as part of 
the question mark) on the front cover, but 
only after spending an hour with a magni- 
fying glass examining the bridge and 
guard rail, for I was sure that was where it 
was hidden. I would like to take this op- 
portunity to say that I really enjoy your 
magazine but would make one suggestion 
— place all articles for the same computer 
together. It would make it easier to find 
those programs and stories geared toward 
the readers' particular computer. Also 
would like to comment on Dave Albert's 
column this month. I agree that errors in 
some of the programs are inevitable. I 
have found it a great help in sharpening 
my own programming skills to find the 
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INPUT POLICY 

SoflSide Magazine welcomes your 
comments and thoughts on both the 
magazine and the field of microcom- 
puling. We try to publish as many of 
our readers' letters each issue as we 
can. 

For the sake of clarity and legibili- 
ty, all letters should be typewritten 
and double-spaced. Send your letters 
to: 

SoftSide Publications, 
Input 

6 South St., 
Milford, N.H. 03055 




bugs in the programs and fix them myself 
(although lost lines do create a problem). 
I have found, however, that my biggest 
problem are my own typos — especially in 
data lines. Keep up the good work! 

Patricia M. Finkenbine 
Albuquerque NM 

Dear SoftSide, 

A debt of thanks should go to Paul 
Johnson for his article "Atari Memory 
Upgrade" in March SoftSide. I would 
like to share my experience in board 
modification with other 800 owners who 
may be considering the change. 

When I first examined my 8K board, I 
was disappointed to discover an adhesive 
tab with board number CO13400 on it. 
When I lifted the tab, embossed 
underneath was the number mentioned in 
the article, CO 12987, and the crucial 
"revision 3" marking. 

I also noticed that the resistors on my 
board did not match the arrangement in 
the diagram. There were no resistors at 
position "B" or "D", but rather at posi- 
tions "C" and "E". 

Upon reflection, I decided the 
modification was still worth a try. The 
board was a match — chances were good 
that the only difference was in resistor 
placement. 

The gamble paid off. Modification of 
my board was even easier, because there 
was already a resistor at position "C". 

There were a couple of errors in the ar- 
ticle, and they should be mentioned. The 
article states twice that the CX852 board 
should be inserted with chips facing front. 
This is incorrect, and any Atari 
owner/modifier risks blowing the whole 
board following this advice. Chips always 
face away from you when the board is in- 
serted in the computer. 

Next, the modified board will read out 
about 13,300 free bytes with a successful 
modification — not between 15,000 and 
16,000. BASIC does eat up a few K. 

I'm sure I speak for many Atari owners 
who purchased the 800 in its original 8K 
format when I say how much I ap- 
preciated discovering a simple way to 
double my memory, save a bundle of 
money, and not end up with an extra 
RAM cartridge on my way to 48K. I now 
have a 32K cartridge running fine behind 
the modified CX852. 

J.J. Anderson 
Palisades Park, NJ 

Dear SoftSide, 

While looking through your article in 
the April issue in numerical bases, I no- 
ticed something interesting. In the table 
of binary numbers, the decimal 
equivalent of 10100 is 20; the shorthand 
date for January 1, 2000 is 1-01-00. The 
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21st century, however, does not begin un- 
til January 1, 2001, where 21 in binary is 
lOIOl. An interesting coincidence! 

Gary Erb 
Whittier, CA 

Dear SoftSide, 

In "My Side of the Page" in the May 
issue, Mr. Micklus suggests a strategy for 
betting in a craps game that involves the 
use of a "history stack" to keep track of 
those combinations that have occurred. 
He then reasons that the machine should 
bet on those combinations that have not 
occurred recently. 

While completely unsound, this 
strategy is nonetheless interesting from a 
historical perspective. A French amateur 
mathematician and gambler, Chevalier de 
Mere, analyzed a dice game (simpler than 
craps) and developed a betting strategy 
based on his analysis. Alas, he lost his 
shirt (chemise?). In 1654, he com- 
municated his conviction that math- 
ematical logic did not apply to games of 
chance to an acquaintance of his named 
Blaise Pascal (for whom the programming 
language PASCAL is named). Pascal was 
intrigued by the problem, saw the errors 
in de Mere's analysis, and went on to 
develop probability theory as a legitimate 
branch of mathematics. (History does not 
record whether or not Pascal made a kill- 
ing at the gaming tables — presumably 
such base pursuits were beneath him.) 

The fact is this: Independent events 
have no memory. If a fair coin is fairly 
tossed, the odds that it will come up heads 
are 50-50. If it is tossed 1 ,000 times and 
came up tails each time, the odds that it 
will come up heads on the 1,001st toss are 
still exactly 50-50. You may question the 
fairness of the coin or the integrity of the 
tosser, but if these are above reproach, 
the odds of coming up heads are always 
exactly 50-50, regardless of what went on 
before. 

Similarly, fair dice do not remember 
what they did on previous rolls: the odds 
that some combination will or will not oc- 
cur are unaffected by previous events. 
Thus, the "history stack" mentioned by 
Mr. Micklus is a useless artifice. 

G. Staradub 
Nashua, NH 

Dear SoftSide, 

I read Lance Micklus' article in the 
May '81 issue with enormous interest. I 
think the odds on his meirriage are better 
than those on his crap game, however. I 
am a veteran of both (25 years married, 30 
years an avid craps player) and I have the 
feeling you will be getting more letters 
than this one about the odds... 

Lance, teaching yourself the complex 
rules of casino craps is quite a feat, but 



relying on the house (closed circuit TV) to 
tell you how to play is like asking Bunyon 
to get you out of the bog — there's 
something he's not telling. What the 
house will never tell you is that the best 
edge a player can have is betting the odds. 
There are definite and specific combina- 
tions of the dice, yes? Three ways to roll a 
seven; three ways to roll a six or eight; two 
ways to roll five or nine; two ways to roll 
four and ten. 

Here's how you play the odds — and 
you will observe players doing this at the 
table but never will you find it listed or ex- 
plained in the official house rules, since it 
really does give the player a slight edge. 
You must have a bet on the Pass line. 
When the number is rolled, the player 
places another bet up to the amount of 
the original bet behind the line (toward 
himself) — this is the odds bet. If the 
number comes up, you get paid even 
money on the Pass line and odds on the 
other. The odds are as follows, and this is 
standard in any legal casino anywhere in 
the world: on a six or eight, 6-5; on a five 
or nine, 3-2; on a four or ten, 2-1. 

The same odds and betting privilege (!) 
apply on the 'Come' bets. (It gets a bit 
complicated here, since the odds are off 
the Come bets on the first roll, trying for 
a new number, if your money is riding 
from a previous roll — that way you 
don't lose the odds money if the roller 
craps out with a 2, 3 or 12; if a 7 is rolled 
you get the odds money back but lose the 
placed, or Come, bet.) 

I hope you will figure out how to incor- 
porate this into your program, because it 
is the smart way to bet and the only way 
many really smart bettors (me) ever bet; a 
computer program without this option 
wouldn't be realistic or of much interest, 
at least for me. On the other hand, I 
would be your most eager customer for a 
real simulation of the game using the real 
odds. 

By the way, Atlantic City is not a ter- 
rific introduction to casino excitement; in 
my opinion it is tacky and slow, a two 
dollar horse trying to enter the Derby. If 
you ever, ever get a chance to go to Las 
Vegas, do it! It's very different; any game 
player has to love it. (I've shot craps in 
lots of different places all over the world, 
and Vegas is the best by several lengths). 

I wish you enormous luck with your 
program and will watch for further 
developments with great interest. 

Eileen Lottman 
New York, NY 

Dear SoftSide, 

I was very disappointed to see, after 
receiving my March, 1981, SoftSide, that 
the Developing Data Base series is coming 
to an end. It was obvious that sooner or 
later it would have to end, but I believe 
that this is perhaps the best column I have 
seen in your pubhcation or any other. I 
am a beginning programmer and have 
found this particular series to be more 
helpful to me in learning and understand- 
ing programming than any other I have 
read, and I am writing you in hopes that 



you will continue this, or another similar 
series, in your magazine. My reasoning 
for this is not due as much to the specific 
problem which was being addressed by 
the series, but rather by the format. As 
Marshal McLuhan said, "The medium is 
the message". In this case, the medium is 
a very productive one for learning pro- 
gramming. Breaking this rather large pro- 
gram into small pieces and documenting 
each individual part to the point that 
understanding the logic of the program 
becomes easy, I believe, is a very powerful 
method for teaching programming in a 
publication such as yours. Not only did 
each of us who followed this series end up 
with a very useful program, we have one 
that we understand and that can be 
modified to fit our needs. We each 
learned many useful programming tech- 
niques. Perhaps future data base pro- 
grams will be seen in the pages of your 
magazine, or perhaps some other author 
would be willing to take on a series on this 
format. The subject matter is, I believe, 
of little consequence; perhaps an Adven- 
ture could be written or a word processing 
program, but I strongly encourage the 
editors and staff of the magazine to con- 
tinue with this fine format which you 
have developed. 

Again, I would hke to say that it is my 
assertion that this is, for a beginner pro- 
grammer, perhaps the best article I have 
seen in any publication. 

Henry F. Drygas, Jr. M.D. 
Olympia, WA 



Dear SoftSide, 

I am especially intrigued by your use of 
the '&' to poke sound routines into the 
machine to smooth the tones. I am 
curious to learn where you discovered 
such a talisman when said character is not 
mentioned in any of the owner's manuals. 
Are there any other uses of the amper- 
sand and how, exactly, does it do what it 
does? Further, are there any more of 
these litle gems that can be used without 
compromising professional programmers 
trade secrets? 

David W. Landry 
Saginaw, TX 

Editor's Reply: I was introduced tojhe 
ampersand by an article in the Apple Edi- 
tion of SoftSide, April, 1980. The 
manuals, as you noted, don't say much 
about it. (See the Applesoft Basic Pro- 
gramming Reference Manual, p. 123.) 
What it does is to cause a jump to 
memory location 3F5 (decimal 1013). The 
sound routine in "Battle at Sea" (which 
first appeared in the August, 1981, issue) 
pokes a Machine Language instruction in- 
to that address, which in turn passes con- 
trol to the sound generating routine star- 
ting at 300 (decimal 768). 
The ampersand, then, can really be used 
to execute any Machine Language 
routine, with the proper pokes. You can 
use it, in the same way, to jump to a built- 
in monitor routine, such as running, 
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listing, etc. For example, if you POKE 
1013,76: POKE 1014,165: POKE 
1015,214 then typing & [return] will 
LIST the program in memory. Other 
possibilities were listed in the April '80 
issue. 

Dear SoftSide, 

Had a few things I wanted to pass on, 
so this letter will probably end up too 
long. First, regarding KUDOS AND 
KLUNKERS (May '81). I just completed 
converting 64 programs to run on Model 
III disk, and would like to add a few com- 
ments to the article. 

BUILD, DO, and PAUSE. To set file 
size and memory size in BUILD, just type 
the number and press ENTER (BREAK 
ends the BUILD program). The only 
problem 1 had with it is that the assem- 
bled command is loaded into high 
memory during the DO operation. This is 
mess if you have the DO command load a 
a Machine Language routine you wanted 
put in high memory. In addition, the 
MEMORY SIZE response won't let you 
set memory above the bottom of this DO 
command. Roughly, it seems to take up 
about IK memory which is permanently 
lost to you unless you reset the end of 
memory pointers with POKEs. 

My version of the DOS won't let you 
turn the DUAL off. Tacky. 

I really hke CMD"X". This is because 
I use PEEKS and POKEs a lot, one of 
which is often to the clock. Since the 
clock location has been moved from 
16449 - 16454 to 16919 - 16924, I used it 
a lot. It doesn't go to the printer, though. 
Also CMD"T" turns on the clock 
display! CMD"R" turns it off. 

The Machine Language sort is good, 
but as Ms. Keller says, it requires a single 
dimensioned array. It is possible to use 
this routine to sort anything, if you are a 
little sneaky. OPEN a dummy random 
file. Take your array and FIELD it into 
the buffer. If you have a parallel numeric 
array, which should also change order 
with the string array, just field it into the 
same buffer. Then reload the whole mess 
back into the single array (strings). Do the 
sort, go back through the FIELD trick 
and restore the numeric arrays. This takes 
a bit of memory, but still is faster than a 
BASIC sort. I also heard that if you put 
numbers into the array of strings, they 
won't sort in numeric order. To get 
around this, change the number to a 
string with STR$ rather than MKI$ or 
whatever. RIGHT justify the number in 
the field, then sort them. Works fine. 

Maybe someday Radio Shack will just 
have Apparat write their DOS in the first 
place! 

Regarding errors in your program 
listings. I have found errors in every 
listing (practically), and every hardware 
article, in every magazine I've ever read. 
The solution: Wait a month. Works 
great, just don't type in any programs un- 
til you get the following issue to make the 
corrections. This is especially true of 
hardware mods! ('Course, if everybody 
did that....) 

continued on page 9 
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Turn your Apple into the world's 
most versatile personal computer. 



The SoftCard™ Solution. SoftCard 
turns your Apple into two computers. 
A Z-80 and a 6502. By adding a Z-80 
microprocessor and CP/M to your 
Apple, SoftCard turns your Apple into 
a CP/M based machine. That means 
you can access the single largest body 
of microcomputer software in exist- 
ence. Two computers in one. And, the 
advantages of both. 

Plug and go. The SoftCard system 
starts with a Z-80 based circuit card. 
Just plug it into any slot (except 0) of 
your Apple. No modifications required. 
SoftCard supports most of your Apple 
peripherals, and, in 6502-mode, your 
Apple is still your Apple. 

CP/M for your Apple. You get CP/M 
on disk with the SoftCard package. It's 
a powerful and simple-to-use operating 
system. It supports more software 
than any other microcomputer operat- 
ing system. And that's the key to the 
versatility of the SoftCard/Apple. 



BASIC included. A powerful tool, 
BASIC-80 is included in the SoftCard 
package. Running under CP/M, ANSI 
Standard BASIC-80 is the most 
powerful microcomputer BASIC 
available. It includes extensive disk I/O 
statements, error trapping, integer 
variables, 16-digit precision, exten- 
sive EDIT commands and string func- 
tions, high and low-res Apple graphics, 
PRINT USING, CHAIN and COM- 
MON, plus many additional com- 
mands. And, it's a BASIC you can 
compile with Microsoft's BASIC 
Compiler 

More languages. With SoftCard and 

CP/M, you can add Microsoft's ANSI 
Standard COBOL, and FORTRAN, or 



Basic Compiler and Assembly Lan- 
guage Development System. All, more 
powerful tools for your Apple. 
Seeing is believing. See the SoftCard 
inoperationatyour Microsoft or Apple 
dealer. We think you'll agree that the 
SoftCard turns your Apple into the 
world's most versatile personal 
computer. 

Complete information? It's at your 
dealer's now. Or, we'll send it to you 
and include a dealer list. Write us. Call 
us. 



SoftCard is a trademark of Microsoft. Apple II and 
Apple II Plus are registered trademarks of Apple 
Computer Z-80 is a registered trademark of Zilog, 
Inc. CP/M is a registered trademark of Digital 
Research, Inc. 



AttCPQBOfT 

r CONSUMER^ PRODUCTS^ 

Microsoft Consumer Products. 400 108th Ave. N.E., 
Bellevue, WA 98004. (206) 454-1315 



continued from page 7 

About software piracy. We at the In- 
novative Perguin write and distribute very 
high quality software on cassette and 
diskette. All are in BASIC with imbedded 
Machine Language and packed super 
graphics and arrays. All programs come 
with instructions for modifications. If I 
cleverly had disabled the break key, made 
the programs self-starting, and had them 
delete themselves after running, it would 
be a little hard for someone to make it ex- 
actly what they wanted. Faced with the 
fact that the Data Dubber will make a 
perfect copy of any cassette — without a 
computer, and that as soon as someone 
figures a new way to make the program 
copy proof, someone else breaks the 
code, I just never considered it was 
something worth doing to make it un- 
copiable (izzat a word?). 

Instead, the brochure which comes with 
each program says, "This program was 
copyrighted (date). We encourage you not 
to violate this copyright by making 
unauthorized copies of this program, as 
this denies compensation to those who 
earned it, and discourages the best pro- 
grammers. Their loss in this field will 
eventually affect you. We recommend 
you do make a copy of this program as a 
backup for your own use." 

Some people probably make bootleg 
copies, some don't. Frankly, I've got 
more important things to worry about. 

I like your magazine, even if there are 
all those strange articles about Apples and 
Ataris. See what the competition is up to! 
I love one liners. I learn more from a one 
liner than most long programs. 

Dan Connors 
Harvey, LA 

Dear SoftSide, 

I enjoyed Judy Neyhart's article "The 
Money Whirlpool". I was particularly en- 
chanted by her last paragraph: 

"...The only difference between men 
and boys is in the price of their toys". 
That goes for girls, too! 

You mean the only difference between 
men and boys is in the price of their girls? 

I knew I was overlooking something! 

Don Berry 
Vashon Island, WA 



Dear SoftSide, 

I have been using the disk version of 
TSHORT for only a month, but I have 
found several modifications that are 
helpful for typing programs out of your 
magazine. 

The first changes the MID$ (statement 
to ELSE, and the second changes the 
INSTR (statement to PRINT®. 

ELSE = 



For TSHORTR 
POKE 28243,69 
POKE 28244,76 
POKE 28245,83 
POKE 28246,0 
POKE 28247,197 



PRINT® 



r TSHORTR DEC 


HEX 


POKE 28206,80 


50 


POKE 28207,82 


52 


POKE 28208,73 


49 


POKE 28209,78 


4E 


POKE 28210,84 


54 


POKE 28211,192 


CO 


For TSHORT 




POKE 27550,80 




POKE 27551,82 




POKE 27552,73 




POKE 27553,78 




POKE 27554,84 




POKE 27555,192 





For TSHORT DEC 


HEX 


POKE 27587,69 


45 


POKE 27588,76 


4C 


POKE 27589,83 


53 


POKE 27590,0 





POKE 27591,197 


C5 



These can be poked in from BASIC or 
you can use DEBUG to put the hex values 
in memory. 

The modified version can be saved to 
disk using the original TSHORT instruc- 
tions. 

Danny Nelsen 
Blackwell, OK 

Dear SoftSide, 

I have been a reader of yours since last 
September, shortly after I brought my 
S-80. I had looked over the various per- 
sonal computers, but since my budget was 
limited, I decided on the S-80, and then 
lucked out and bought a used one. Oh, I 
really Uked the Hi-Res graphics and the 
color capability of the Atari and the Ap- 
ple, but bucks had to be a primary con- 
sideration. 

I have received nothing but satisfaction 
(along with a certain amount of frustra- 
tion, of course) from my purchase. 
Although the low resolution graphics 
don't give me the same sensational sight 
games as the Hi-Res computers would 
have, I find that I am satisfied with what I 
have. And the more than 200,000 other 
S-80 users and I have something else going 
for us, too, and that is more than 200,000 
programmers, many of which like to con- 
tribute software for the enjoyment of all. 

By virtue of the S-80's Lo-Res graphics, 
many of the S-80 games tend towards be- 
ing thought games as opposed to sight 
games. We tend to try for more mental 
adventure than "arcade" adventure. And 
that seems to be a sore point for some of 
your readers. The one comment that I 
have seen in your magazine that used to 
bother me most was the recurrent use of 
the term "TRaSh"-80. It is unfortunate 
that anyone finds it neccessary to take out 
their frustrations of the lack of software 
for their machines by dumping on a dif- 
ferent brand. I noticed in the April issue, 
yet another use of that term, as an Apple 
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user — it always seems to be Apple users 
who use the term "TRaSh"-80 — fussed 
about the lack of adventure-type pro- 
grams, pointing out that there had been 
several S-80 adventures. Tsk, tsk. I 
wouldn't think that an adventuresome 
Apple user would have much trouble con- 
verting an S-80 adventure to use on an 
Apple. It's not as easy to convert an Ap- 
ple program to S-80 usage, alas, because 
of the usage of color and Hi-Res graphics. 

What I would like to see in SoftSide, is 
an article that would let me become more 
famiUar with Apple BASIC, and Atari 
BASIC, so that I might be able to attempt 
conversion of the Apple arcade-type 
games to use on my S-80. Many of these 
games seem intriguing, and it would be 
worth the mental workout to try to get 
them to run on an S-80. It might also help 
your Apple readers if there was an article 
on S-80 BASIC, and perhaps a cross- 
reference as to what term in S-80 BASIC 
corresponds to what term in Apple/ Atari 
BASIC. 

Back to the downcast Apple user. If 
direct conversion of the S-80 adventures is 
too much work, perhaps a solution might 
be the acquisition of a Z-80 softcard, or 
perhaps — heaven forbid! — the sly ac- 
quisition of an S-80 so that you too can 
enjoy the proliferation of software 
available for the beast. In all seriousness, 
though, Apple user, I do envy your 
graphics and color, but I wouldn't swap 
machines with you. I can always add the 
graphics and the color in after-market 
add-ons when I'm ready, and I am now 
up and running on a good, usable com- 
puter system on a budget that never 
would have allowed the purchase of an 
Apple. I respect you and your machine, 
show a little respect for me and mine. 

Thank you, SoftSide, for the use of 
your forum. 

Thomas R. O'Hara Jr. 
Anson, ME 

Dear SoftSide, 

I used to pick up a copy of the S-80 
SoftSide when there were several pro- 
grams I wanted, but in December of last 
year I subscribed to the cassette version, 
although I have since upgraded to 48K 
and two disk drives. 

Several of the recent letters to INPUT 
struck a sympathetic note. First, could 
you send the magazine in a wrapper? All 
the other magazines I subscribe to (at 
$2.00 -I- /copy) come that way. Apparent- 
ly I'm on the top of the bundle that comes 
to my area, because my issues have a 
florescent label "D" stuck in the middle 
of the cover, and have arrived dog-eared, 
torn, dirty, and generally looking like 
they have been on the losing side of a 
game of Kriegspiel! The covers were just 
barely still attached, and I suspect that the 
late arrival of the January issue may have 
been due to the label and cover being 
destroyed. Do I really want to pay $24 a 
year for this? 

Next, may I point out the amusing jux- 

continued on next page 
9 



continued from previous page 

taposition of two letters in the February 
issue? One has an "Editor's Reply" 
stating that there are no typos in the pro- 
gram listings because they are computer- 
to-print listings; the one next to it points 
out that the exclamation point in the 
"Monster Maze" program should be a 
greater-than sign. So how did THAT get 
LLISTed? By the way, has anyone else 
had the Maze bomb out when the 
Monster walks through the bottom wall 
of the maze and off the screen? Or do I 
still have one more bug in there? I wish 
that, in addition to the policy of requiring 
programs to run in both Disk and Level 
II, you would require that listings be 
spaced out (no run toge- 
therlinesliketheMonsterMazelistings). If it 
is necessary to compact in order for a pro- 
gram to run in a minimum system, then 
print a note to that effect, and the typist- 
programmer can act accordingly. 

I also feel that the combined version of 
SoftSide is a loss in quality. I hate 
discovering that the featured and most in- 
teresting sounding program is for some 
other computer. Also things like the 
description of the Mini Golf game, which 
is supposed to have great sound, but only 
in the Atari version. 

1 recognize that the possibility of going 
back to the old multi-version magazine is 
nil, so I suggest you cut out (or down) on 
hardware reviews, new product an- 
nouncements, and cute articles which 
have nothing to do with programming. I 
get plenty of that in the other magazines. 

1 would rather see you expand the 
descriptions of program operation, and 
even the game directions, perhaps with 
examples of the type of input expected at 
certain points in the game. For instance, 
we haven't it figured out yet how the 
"Convoy" Sonar Phase works, or what 
information you are supposed to get from 
it. So far we have no idea how deep the 
sub is, or whether the player has any con- 
trol over the ship except launching the 
depth charge. You could also use some 
regular hints for new subscribers, such as 
the statement that all programs will run 
on disk or cassette machines, (the first 
time I encountered a Lev3 statement, I 
assumed the program required Disk 
BASIC; fortunately, I had Microsoft's 
Level III Basic). Better documentation, 
please: The Canyon Bomber program 
doesn't even say what key to use to drop 
the bombs.' You seem to assume that 
every reader has been using SoftSide for 
years and has all previous issues to refer 
to. 

Finally, can you do anything about get- 
ting the cassette and the magazine arrivals 
to coincide better? 

Valerie Vann 
Davis, CA 

Dear SoftSide, 

I read Mr. Causer's article on a self- 
modifying program with interest. He 
could cut down the area searched for the 
target token by using a couple of data 
statements, one just before and one just 
after the desired search area. The 

10 



statements should each contain one string 
item. Before the search reads each of 
these into a string variable, use VARPTR 
to get the address of the string variable, 
and at the address of the string variable 
+ 1 and -I- 2 you will find the address of 
the string in the data statement . Knowing 
an address just before and an address just 
after the target area will shorten the 
search. 1 can see a possible bug in this 
search and replace plan. Level II BASIC 
stores the line number and the address of 
the next statement at the beginning of 
each Une in binary form. It is entirely 
possible that one of the bytes of these 
binary numbers could mimic the target 
token code and get replaced! It might be 
better to write a search routine to search 
for the target line. 1 won't go into details 
but the idea is that the first line always 
starts at the beginning of the program 
storage area. Write a loop that starts at 
this point, reads the line number, checks 
it, and if not the desired line, reads the 
next line address and repeats for the line 
at that address. Once the line is found the 
search and replace loop could be used on 
the body of that line only. 

To change the subject I want to share 
something that I just found out with the 
aid of Pathways Through The ROM. 
Either I have just found out what 
everyone else knew all along, or at this 
late date I have made a breakthrough con- 
cerning the USR function. Contrary to 
what the Level II manual may have lead 
you to believe, the USR function is not 
limited to integer arguments nor is it 
limited to returning integer values! They 
didn't really lie to you in the manual, it's 
just that integer is the only type that they 
explained how to deal with. To work with 
the other types you have to know secrets 
of the ROM that they did not care to 
reveal. 1 became curious about the two 
routines used by the subroutines called by 
the USR subroutine, so I decided to 
disassemble them to see how the USR 
function worked, but first I looked them 
up in Pathways. I was astonished to find 
the subroutine called by the USR 
subroutines to get the argument described 
as a subroutine to convert any numerical 
type to integer type. This implied that this 
conversion did not take place until the 
conversion subroutine was called, and 
therefore the argument was sitting there 
waiting in its original form until this 
subroutine was called. If instead of calling 
the conversion subroutine, your 
subroutine simply looked where it was sit- 
ting, you could work with arguments in 
single-precision or double-precision form. 
There is even a number type flag to tell 
your subroutine which form the argument 
is in. Look it up in Pathways, the number 
storage area is referred to as the ac- 
cumulator in the earlier chapters and as 
ARITH in the Fuller map. 

I now knew that any numerical type 
could be passed as an argument. Could 
you return a non-integer type? Sure you 
can, simply load it into the storage area in 
the proper form for that type and set the 
number type flag to indicate its type. I 
tried some experiments to see if various 
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types would work. I poked a return in- 
struction into protected memory, set the 
USR address to point to this return in- 
struction and experimented by using the 
USR function with various arguments. If 
the value returned was of the same type 
and value as the argument, it boded well 
for being able to pass and return that 
type. I found that it worked for any 
numerical type. Then I tried it for string 
arguments. To my astonishment it 
worked for them also. I have not yet 
found out how it handles string 
arguments and returns string values but I 
will. A bit of disassembly indicates that 
there may even be different systems for 
string constants and string variables. I 
have not yet had time to check this out in 
as much detail as I would like. There are 
too many other things competing for my 
time. (In fact 1 should be doing my in- 
come tax instead of writing this letter.) 
When I have time one of the first USR 
subroutines that I intend to write is one 
for converting addresses above 32767 into 
the negative integer form required for 
PEEK and POKE. 

David S. Tilton 
Manchester, NH 



** REWARD! ** 
TRANSLATION APPEAL 

We will give away a $1(X) 
software certificate each 
month for the best translation 
of a feature program in Soft- 
Side magazine. Furthermore, 
we will publish the translation 
in the magazine. Your port- 
folio will be enhanced and you 
will garner fame and fortune 
for your efforts! 

We will allow three months 
after initial pubHcation of a 
program for the translation to 
be sent. After that time we will 
not accept entries. The quality 
of the translation will be judg- 
ed by the SoftSide editorial 
staff and the winning entry 
will be published the following 
month, i.e., four months after 
pubhcation of the original 
program. 

Entries must be submitted 
on cassette or disk, accom- 
panied by documentation and 
a line listing of the program. 
Please enclose a self-addressed 
stamped envelope if you 
would like your entry returned 
to you. Q 




by Dave Albert 



Hello, hello... it's time for another 
glimpse into the confused workings 
of your favorite software magazine. 
The last couple of times I've written 
this column, I've spent most of the 
space on answering questions and 
trying to clear up things. This time I 
intend to devote most of the column 
to talking about the future. But 
before I do that, a message to you 
Apple and Atari owners: There is an 
Adventure in this issue for you guys! 
But I'm still waiting for an original 
submission for either of these 
systems... we translated an S-80 one 
that first appeared in December '80, 
just to make you happy. Now it's 
your turn... 

Those of you perspicacious enough 
to notice our mailing and subscrip- 
tion rates information at the bottom 
of the masthead and on the mailing 
cards may have perceived that our 
price has gone up. That's right, the 
days of cheap SoftSides are 
numbered. There are several reasons 
for this, none of which are the one 
that most readers will assume: greed. 
No, we're not in the business for the 
money only, we like what we do. 
However, between the constantly 
escalating postal rates, the cost of 
paper and of printing services, and 
the prices we must pay to bring you 
top-notch software, we may be in 
trouble if we don't take steps to keep 
ourselves healthy. One of those steps, 
and only one, mind you, is to raise 
our rates. So, effective this month, 
the national subscription rate is 
$30.00. Our Charter rate for new 
subscribers is now $24.00. However, 
for those of you who have stood by 
us in the past, we are keeping our 
renewal rate to a mere $21.00, just to 
show we appreciate your support. 

Okay. Now to the future. If you 
read Jon Voskuil's editorial this 
issue, you'll already know that we 
have big plans for SoftSide. If not, 
bear with me and I'll try to fill you in. 

SoftSide is about software, pure 
and simple. The whole point of the 
magazine is to get you, the reader, 
the best software we can find for the 
lowest price we can manage. 
Altruistic, aren't we? Not really, 
we're a business, if we don't make 
money, we sink. But we are not a 



pubhcation devoted to programming, 
hardware, computers in general, or 
anything else, although we do include 
articles about such topics. What we 
are about is software. Strictly soft- 
ware. 

We have been "Your BASIC Soft- 
ware Magazine" since Day One, 
publishing only BASIC programs, 
despite appeals by you folks for 
Machine Language and/or programs 
in other languages. The reason for 
this was simply that BASIC is the 
most common microcomputer 
language, and that BASIC listings 
can be printed easily without con- 
suming an inordinate number of 
pages. Hybrid programs, ones writ- 
ten with different languages incor- 
porated into a single program, are 
often the most interesting submis- 
sions we receive, but they list out as 
complete garbage. Machine 
Language programs also make for 
extensive and confusing listings. So 
we simply didn't publish them. Well 
that was frustrating for both you and 
for us. 

After much weeping, wailing, and 
gnashing of teeth, we think we have 
hit upon a solution: a mixed-media 
magazine, the magazine of the 
future. Sounds catchy, doesn't it? 
Now if only we knew what it was... 

People read printed matter on 
paper. Computers read magnetic 
media: cassettes, disks, etc. Our 
magazine is for people and com- 
puters, although I must confess that I 
have yet to meet a computer that has 
subscribed on its own, P-1 not- 
withstanding. We believe that Soft- 
Side's truest fo'-'n would be one that 
encompassed both paper and 
magnetic media in one single entity. 
That isn't really possible, at least un- 
til someone makes a print scanner 
available for the micro owner, or un- 
til people learn to read disks. So a 
compromise must be struck. 

We thought that our media edi- 
tions were a compromise, but really 
they were more a matter of conven- 
ience, i.e., they saved a lot of typ- 
ing, but they really only duplicated 
the printed content of the magazine. 
In our never-ending quest for Truth, 
Justice, and the Perfect Software 
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Magazine, we have hit upon a new 
wrinkle: the aforementioned 
magazine of the future. We will con- 
tinue to produce SoftSide as we have 
in the past; there will always be ten or 
so good programs listed in it, ready 
to type in, as well as articles. One 
Liners, Programming Hints, and 
whatever else we think fits. But the 
media edition is going to undergo a 
radical change. We are reducing the 
price of the disk subscription to get it 
roUing, although not the cassette, 
and adding a lot more to the disk ver- 
sion. Each disk will have several ad- 
ditional programs on it. These pro- 
grams will be the ones we think are 
good, but that for one reason or 
another we were unable to put into 
the magazine itself. The disk version 
will be the deluxe edition. 

The reason for the emphasis on the 
disk is simply that to us, the floppy 
disk is the natural medium for 
microcomputers. Cassettes work, but 
they were designed for audio and 
hastily thrown into the gap when 
micros emerged. The disk was 
created to be used in conjunction 
with a computer and nothing else. 
Furthermore, the capabihties of disk 
far outstrip those of cassette. Saving 
large chunks of data is far more 
reliable on disk, and the I/O 
capacities in themselves justify going 
to disk. And then there's always the 
consideration of speed of access and 
the potential for interaction during 
operation of a program... 

The advantages to the media edi- 
tions are more than just the con- 
venience and the extra programs. For 
one, we will be able to publish and/or 
supply you with general controller 
programs. Think of an Adventure 
that you don't type in and therefore 
don't know the answers to, or a 
monthly crossword puzzle on your 
computer. Some kinds of games and 
diversions simply don't work if you 
have to type them in... the mixed 
media editions will allow us to 
publish that type of program. 

I-$tring, of which you'll be hearing 
more in the near future, is the type of 
program that has a thousand appli- 

continued on page 13 
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THESE HARMLESS DISCS 

CONTAIN ENOUGH EXPLOSIVES 

TO SINK A DESTROYER. 



OR WIPE OUT 



These mini-floppy discs for your 
Apple® computer represent 
the culmination of our 
extensive R&D efforts to bring 
you state-of-the-art strategy 
games in submarine and land 
warfare-. TORPEDO FIRE and 
OPERATION APOCALyPSE. 

These power-packed games 
from Strategic Simulations Inc. are 
designed with the same loving care 
and uncompromising standards that 
have made COMPUTER BISMARCK - 
our flagship game — a phenomenal 
success hailed by critics and enthusiasts. 

TORPEDO FIRE™ takes you to 
the high seas and murky depths where 
you'll play both hunter and hunted in the 
desperate battle between submarines 
and convoy escorts. 

You are given the sophistication of 
simultaneous order execution and realistic 
sighting rules. You can challenge another 
player or engage in solitaire warfare where 
the computer plays the submarines. 

Create your fleet from 30 ships of the four 
major navies (all rated with historical accuracy 
for speed, weaponry, and maneuverability) — 
or design the ships to your own specifications. 
Make up any multitude of scenarios — day or night 
actions, single- or multiple-ship battles. 

As the escort commander, use sonar, radar, and 
your eyes to protect the convoy from the enemy below. 
Since the sightings you receive may be false, you wi 
be hard pressed to track the sub and harder still to 
force it to surface with your hedgehogs and depth charges. 

As the submarine commander, you can make full use of 
the remarkable computer-generated Hi-Res periscope view to 
locate your prey. You must then destroy the convoy, attack or 
evade the escorts — all with utmost stealth, lest the seas become 
your water/ grave. 

OPERATION APOCALYPSETarries you to the 

Western Front, circa 1944. You have the opportunity to re-enact 
the various facets of the Invasion of Europe in four separate sce- 
narios, each offering different victor/ conditions, personnel, 
ordnance, and terrain. 

OPERATION APOCALYPSE uses a revolutionary terrain and 
movement system designed to give you easy and complete 
control over your forces: engineer, infantry, artillery, and armor 
units. The action takes place on a 7-by-18 hexagon mapboard 
dotted with hills, rivers, bridges, forests, and towns. For further 
battlefield realism, the game also offers hidden movement. 

As the Allied General, you can order off-screen artillery 
bombardment to soften up German resistance. Or call upon 
airborne landings behind enemy lines to capture key bridges or to 




AN ENTIRE 
BATTALION. 



wreak havoc on the enemy's communications net- 
work. Directyour engineers to build bridges so your 
armor and troops can roll towards their objectives. 
As the German High Com mand, you must pre- 
vent the Allies from gaining a firm foothold on 
the Continent by quickly wiping out their air- 
borne and amphibious landings. Sever the 
highways and bridges to Germany, and 
you'll cripple the Allied advance. 

The computer is ready to take you on as 
the Germans anytime you want a solitaire game. 
If II be as tough as you like since you have four 
levels of difficulty to choose from. 



All you need to play both games are an 

Apple II with Applesoft ROM card, 48K 

memory, and a mini floppy disc drive. 

Each for $59.95, both come with their 

respective program disc, a rule book, 

two mapboard cards (for plotting 

secret strategies between moves), 

and various player-aid charts. 

Without a doubt, TORPEDO FIRE 
and OPERATION APOCALYPSE 
represent the finest computer 
wargames available, head and 
shoulders above their 
competition. 
So why wait? Hurry down to your 
local store and get your copies today! 
Or get them directly from SSI. Credit card holders, 
call toll free 800-227-1617, ext 335 and charge your 
order to your VISA or MASTERCARD. In California, call 800- 
772-3545, ext 335. 

To order by mail, send your check tO: Strategic Simulations Inc., 
Dept. S2, 465 Fairchild Drive, Suite 108, Mountain View, CA 94043. 
All our games carry a 14-day money back guarantee. 




SSf s other games for your Apple: 



COMPUTER BISMARCK,* $59.95 
COMPUTER AMBUSH, $59.95 
COMPUTER NAPOLEONICS, $59.95 
COMPUTER QUARTERBACK, $39.95 



COMPUTER CONFUCT, $39.95 
COMPUTER AIR COMBAT, $59.95 
THE WARP FAaOR, $39.95 
CARTELS & CUTTHROATS, $39.95 



* Also available for the TKS-SO - Dis<v $59.95; Cassette, $49.95 



As part of our demanding standards of excellence, we use mBXBll floppy discs. 

TRS-80 is a registered trademark of Tandy Corporation. Apple is a registered trademark of Apple Computer Inc 



continued from page' 11 

cations, if only the data bases are 
there. We can't publish such banks of 
data in the magazine; it's impossible 
to type iiv several pages of numbers 
without making a mistake, and it's 
even harder to find the mistake! But 
is would be easy to supply the 
necessary data on a disk. 

We will use the magazine itself to 
provide instructions and notes on the 
disk version programs, but we 
could not publish all the programs we 
want to without tripling the size of 
the magazine, something we cannot 
afford to do. We feel pretty certain 
that some of you will be quite angry 
to see us do this, but it isn't our inten- 
tion to tease you with descriptions of 
programs that you can't use unless 
you subscribe to the disk edition. 
There's just no other way to move 
ahead. The person who subscribes to 
the magazine alone will continue to 
receive what he's used to getting: 



Anywhere from three to six programs 
for his computer.ready to be typed 
in. Those who subscribe to the disk 
edition will be getting a lot more: 
More programs, and the first true 
Computer Age magazine. 

Write to us and let us know how 
you feel about all this. We're quite 
excited about it, and we think that 
you will be too. Our game is to get 
good software to you as inexpensive- 
ly as possible. We feel that the whole 
software situation is getting out of 
hand, so we are taking steps to do 
what we can to bring it back down to 
a realistic level. We feel that a lot of 
the cost of software is unnecessary, 
stemming from packaging, attempts 
to avoid privacy, and other factors all 
too human and not particularly 
human. So we're trying to provide a 
better way of getting and dealing with 
software. Your response will tell us 
whether we'll succeed or not. Q 



CALENDAR 



July 15-17 

Summer Computer Simulation Conference 

Washington, D.C. 

This conference will present over 40 sessions on topics of computer 

simulation technology and applications. 

Contact: William E. Buchanan, Applied Physics Laboratory, 

Johns Hopkins Road, Laurel, MD 20810. 

July 19-24 and 26-31 

1981 National Computer Camp 

Moodus, CT 

This overnight camp will be directed by Dr. Michael ZabinskI, Professor at 

Fairfield University. Campers aged 10-17 will have small group instruction 

and hands-on experience with computers. 

Contact: Michael ZabinskI at (203) 795-9069, or write Computer Camp, Grand 

View Lodge, Box 22, Moodus, CT 06469. 

July 29-31 

The 1981 Microcomputer Show 

Wembly Conference Centre, London, England 

Seminars on microcomputer applications In business, production, and 

education will be presented. Topics for conference sessions include hardware 

availability; software packages and development; automatic test equipment; 

robotics; and process control. Exhibits from major European and American 

manufacturers will be featured. 

Contact: TMAC, 680 Beach St., Suite 428, San Francisco, CA 94109, 

(800) 227-3477, in CA call (415) 474-3000. 

August 3-7 

Introduction to Data Processing Course 

Rochester, NY 

This course, offered by the Rochester Institute of Technology, will provide 

deaf adults with introductory technical skills applicable to job situations 

involving computers. 

Contact: Donald Bell, NTID Data Processing Dept., Rochester Institute of 

Technology, One Lomb Memorial Drive, Rochester, NY 14623, or 

call (716) 475-6373 (voice or TTY). 

August 10-14 

Advanced Data Processing Course 

Rochester, NY 

Deaf Adults who are experienced with computers will gain Knowledge of 

software applications on small computer systems. Topics include: data bases, 

Interactive programming packages, and color graphics. 

ConUct: Donald Bell, NTID Data Processing Dept., Rochester Institute of 

Technology, One Lomb Memorial Drive, Rochester, NY 14623, or call (716) 

475-6373 (voice or HY). 



ATTENTION 
AUTHORS 

SoftSide magazine, the leader 
in the field of BASIC software 
programming for home computer 
applications, is actively seeking 
program and article submissions 
for the more popular home 
microcomputers, as well as for 
product reviews. This is your 
chance to make some extra cash 
and become famous in the proc- 
ess! 

We are interested in programs 
written in BASIC with any alter- 
nate language subroutines 
worked into the program only 
within the framework of BASIC. 
Games and educational soft- 
ware, as well as any other ap- 
plications for the home computer 
user are preferred, although we 
will consider virtually any type of 
program. 

We are looking for well- 
written, informed reviews of all 
software for the popular home 
computers for publication in the 
magazine. Reviews should take 
into consideration all aspects of a 
particular software package, 
from speed of execution to pro- 
gramming creativity to the 
estimated length of time that the 
product will hold the consumer's 
interest. 

When submitting a program, 
please be sure to include full 
documentation of subroutines 
and a list of variables, as well as a 
brief article describing the pro- 
gram. All such text, as well as ar- 
ticle and product review submis- 
sions, should be typewritten and 
double-spaced. Programs should 
be submitted on a good cassette 
or disk, and should function 
under both Level II and Disk 
BASIC. 

Send to: 

SoftSidePublications 
SUBMISSIONS DEPARTMENT 

6 South Street 
Milford, NH, 03055 

Be sure to send for our free 
Author's Guide. 

We regret that due to the 
volume of submissions we 
receive, we are unable to return 
your cassettes or disks. 
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by Scott Adams 

While reading the April issue of 
SoftSide I came across an interesting 
letter by a gentleman in New York 
who seemed upset about my column 
on software piracy, (see letter at 
right). I would like to answer him 
here in my column. 

His main argument appears to be 
that programs are like books — one 
person can read a book and then give 
it to a friend without fear of moral or 
legal repercussions. I agree 100%. 
Giving your friend your original copy 
of a program that you no longer want 
is indeed well within your rights. But 
public libraries don't give out copies 
of books that they have made 
themselves, they only lend out the 
originals! 

If you give your friend a copy of, 
say "Adventureland", how does that 
hurt me, the author? Well, not really 
of course, if that was the extent of it. 
What inevitably happens in a case 
like this is that one copy is then 
copied and given to a friend of the 
friend and so on and so on. Now if 
everybody gave just one friend a copy 



of a program they had bought, it 
would cut software sales in half. Now 
think of the reduction when one 
original ends up generating 10 or 20 
or even 50 "copies"! Yes, I do feel 
very strongly that giving your friend 
a copy of any copyrighted material is 
both legally and morally wrong. Not 
only does the author suffer, but in 
the end everybody in the whole in- 
dustry suffers! 

Another point raised was that I 
have "taken" more from the in- 
dustry than I have ever given. I really 
hope that he is wrong, as this type of 
accusation really makes me feel bad. 
But I will leave it up to you out there 
in the real world. Write and tell me if 
you feel this is true. I have always 
tried to only market software that 
meets what I call the Cinema Ticket 
Rule: You should get as many hours 
of enjoyment per dollar spent for a 
program as you would per dollar 
spent on cinema tickets. 

Until next month, keep on com- 
puting... 




The Lazy Man's Shortcut to Machine Language 
A BASIC Compiler in BASIC! Run your source program in BASIC, 
compile it into FAST Z-80 Code and execute the compiled version — all 
without reloading. 26 integer variables, GOTO, COSUB, END, REM, 
RND, LET, -I-, *, /, IF, THEN, =, INKEY$, CLS, PRINT®, CHR$, 
PEEK, POKE. Compiled programs may be saved via TAPEDISK. 

Supplied with game program, "3-D TIC TAC TOE", which uses all 
of the TINY COMP statement set and is ready to compile. 

Manual includes several sample programs as well as through documen- 
tation of the Compiler for those who like to know "how things work" 
and for those who might even wish to EXPAND on TINY COMP's 
capabihties. 

16K, S-80 Cassette $19.95 

32K, S-80, Disk $24.95 
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Dear SoftSide, 

In your February, 1981, issue, there is a 
column by Scott Adams ostensibly con- 
cerning software pirating. I hope IVlr. 
Adams is more careful in his program- 
ming than he is in his thinking about this 
problem. 

Pirating is defined in the lawsuit he 
mentions in his postscript. It has nothing 
to do with the argument he had with the 
man who offered to give a friend a copy 
of a program. Pirating involves taking the 
creation of an author, copying and then 
selling it without the authorization of the 
author. 

When Mr. Adams contracted to write a 
column for SoftSide, the contract was not 
only with the publisher but with the 
public that reads his column. If he actual- 
ly perceived the "English High Court" 
decision to be on a case analagous to the 
one he argued with the fellow copying a 
program for a friend, then I suggest that 
he stick with programming in his column 
and leave the heavier subjects to people 
who know what they are talking about. 
If, on the other hand, he knew full well 
that the case did not apply, then he owes 
an apology to his readers for his attempt 
to mislead them. 

Did he ever lend a friend a book and 
then feel guilty about the money that was 
not going to the author? Would he sug- 
gest that a snow thrower company sue the 
three neighbors that chipped in and share 
one machine? Would he close all 
libraries? Would he outlaw VCRs and 
tape recorders? How much does Mr. 
Adams pay Tandy for creating a market 
for his programs? Or is he leeching off of 
their huge gamble? 

The problem with Mr. Adams and his 
ilk is that they fail to see anything but 
their own parochial interest. They easily 
forget what they owe to their contem- 
poraries and predecessors. I'm sure Mr. 
Adams never inquired of Microsoft if he 
could use their BASIC in his programs. 
How much has he contributed to Dart- 
mouth? 

The fact is that Mr. Adams lives in a 
community and not by himself, and he 
gets from and gives to this community. I 
would suggest that, to-date, he has taken 
much more than he has given. 

I believe program pirates should be ar- 
rested and jailed. But, let's be quite 
precise about this; it does no one any 
good to completely confuse the issue. The 
pirate attempts, in an organized manner, 
to seize the market of the legitimate pro- 
ducer. What one friend gives or lends to 
another is neither the government's nor 
Mr. Adams' business. 

Eli Passin 
New York, NY 
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Hi there, this is your old Uncle 
Fred, announcing for the very last 
time all the late repUes to our Easter 
Egg hunt. First I want to take this 
here opportunity to say that there 
were actually a couple of you folks 
out there who found the egg where it 
wasn't, which is to say that you were 
looking too hard. It was under the 
question mark (?) on the line about 
the chairman of the board. The strag- 
glers were: 

James Bash, Staten Island, NY. 

The Mad Programmer, Romville 

Cybernia (who are you trying to 

kid?) 

Mike Quinn, Hazlet, NJ. 

Dale Krumel, San Francisco, CA. 

Mark «& Erik Subba-Rad, Men- 

dham, NH. 

Kyle Wadsten, Concord, MI. 

Daniel Wood, Oregon House, CA. 

David Meile, San Francisco, CA. 

Richard J. Croak, Gouldsboro, 

PA. 

Ian Smith, Rochester, NY. 

Chris Bell, Alma, AR 

Tilden A. Smith, Punta Arenas, 

Chile. 

So much for the eggheads out 
there. Now back to the real reason 
for this waste of space: the contents 
of this issue. We've got all sorts of 
stuff in here this month, more than 
ever before. To begin with, in 
response to all the wailing and cater- 
wauling we get from the Adven- 
turesome types in 6502 Land, we pre- 
sent "Kidnapped" Redux, a couple 
of virtuoso translations of Peter 
Kirsch's December '80 cover pro- 
gram by Carl Mueller and Rich 
Bouchard (with a bit of help from the 
newest member of our programming 
staff: Alan Zett). 

And for all you budding chemistry 
majors, sergeants too, we have 
"Chemistry Drill", by Brent Packer, 
with translations provided by Jon 
Voskuil. 

For all you erstwhile 
crytographers, here's a program in 
both S-80 and Atari lingo for you: 
"Code Master" by Victor Meyer 
and, you guessed it, R. Bouchard, 
Esq. 

Being as it's summer, or at least 
hot enough to be so considered, 
here's an outdoor favorite: 
"Volleyball" for the Apple, written 
by Jim Hilger. The munchkin sum- 
mer favorite is beer, but then who 
asked us anyway? 



And that Voskuil fellow, feeling 
left out now that the Math Olympics 
have drawn to a close, has come up 
with yet another in a brilliant series 
of programs: "Microdrafter". No, 
you needn't send your Apple to 
Canada, this isn't a conscription ef- 
fort at all, but a program that allows 
you to draw all sorts of pictures 
and/or shapes. 

For you S-80 owners it's words and 
figures month. .."Magic Paper 
Calculator" by Russell Star key is our 
first offering, a lineprinter calculator 
that'll keep track of all that magic 
paper. And in the words dept., we of- 
fer you "Word Wars" by Rowland 
Archer. Homonyms with bazookas, 
adverbs that pack M-16s, and even an 
occasional mortar-toting meta- 
phor... Actually, "Word Wars" is a 
thinly disguised version of an ob- 
scure game by a not so obscure 
game company. Bet you can't tell me 
what game it's based on... 

We also have the second install- 
ment of Will Hagenbuch's book, 
"Lemonade or Champagne" in this 
issue, along with the first in a series 
of articles dealing with the Level II 
VARPTR command, skillfully ex- 
plained by John T. Phillipp, M.D. 
And that Penguin fellow returns to 
our pages with "I Don't Think We're 
in Kansas Anymore..." Plus Harland 
Hill urges you all to "Go Pubhc with 
Your Computer" and Joan Trucken- 
brod continues to generate patterns 
at an astounding rate. And that 
mysterious "J" fellow generates yet 
another in a seemingly endless series 
of columns. 

Suddenly we are run over by a 
truck. Q 



ATARI ONE LINERS 

1 GRAPHICS 19: FOR A=l TO 30; FOR C=l T 
3:C0L0R C:DRAHTO RND(l)t39,RND(ilt2 
liSETCOLOR C-l,RND(l)tl5,RND(l)tl3:NE 
XT C:(iEXT A: GOTO 1 

Harry Caporuscio 
Long Beach, CA 



1 INPUT P:6RAPHICS 22:F0R A=0 TO 95jY 
=fl/32-2:Y=YM!F0R B=0 TO 159:l(=B/M-5 
.5;Z=INT(Pt(l(tXtY))tO.SsCf]LOR Z=INT(Z 
):PLOT B, A: NEXT B:NEXT A 

Allen Middleton 
St. Paul, MN 




STAR 



ALL NEW VERSION! 

by Lance Micklus 

Now with Sound Capability 
and Increased Speed of 

Execution. 

You are in command of the 

starship Enterprise and her 

complement of 371 officers 

and crew You must enter 

and explore the Omega VI 

region of the galaxy with its 

192 quadrants containing star 

systems and planets (a few of 

which are habitable). 

Astronomical hazards such as 

pulsars, Class stars, and 

black holes are known to be 

present in the region. Klingon 

battle cruisers are also 

present, so the utmost care is 

needed. 

Star Trek III. 5 includes; 

playboard 8 by 3 by 3 

quadrants: weapons system 

of Phasers and Photon 
Torpedos; Warp and Impulse 
power systems; Science and 
Ship's computers; Long and 

Short Range sensors; 
Damage Control and Status 
reports; and 20 Klingon battle 
cruisers, and 100 stars, 
planets, black holes, and 
pulsars. 
Available on Digital 
Cassette for Level II, 
16K $14.95 
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APL 




by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power of 
this language is In its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring 
matrix multiplication or other matrix problem solving that would require hours of programming time in BASIC are solved 
quickly and with minimal effort in APL. 

To aid in learning APL, lessons are included on the disk. Starting from the basics, you are brought step by step through 
the various programming techniques involved with APL. These lessons act as a tutor which will have you "talking APL" in 
no time. Also available Is the book, "APL: An Interactive Approach," which reinforces many of the examples given In the 
lessons and provides additional insight into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into cur- 
rent ones; Return to DOS for directory or commands without losing your workspace; Send output to lineprinter; Five 
workspaces of lessons Included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy 
editing within FUNCTION lines; Latent expressions (FUNCTION can "come up running" when loaded); Tracing of function 
execution; Real-time clock; User-control of random link; Workspace is 25587 bytes (in 48K machine); Arrays may have up to 
63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and assign, branch, catenate, ceiling, chr$/asc, circular, 
combinational, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, for- 
mat, grade down, grade up, greater, greater/equal. Index generator. Indexing, index of. Inter product, label, less, less/equal, 
logarithm, maximum, member, minimum, multiple, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, 
quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, 
take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (&48K recommended) includes APL-80, Five workshapes of lessons, in- 
struction manual $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 

Transpositions, format, andi Inner product not Implemented. Reduced domain for some functions, 6 digit accuracy. 
$14.95 on cassette 

LIMITATIONS 

Due to the absence of the special APL character set on the TRS*) , APL-BO uses shifted letters to represent the various APL characters. In addition to the keyboard 
limitations, lamination, domino, and matrls inverse are not Implemented but can be derived with user-defined functions. Itlultlple specifications must be spilt Into 
two statements unless the left-hand assignment is to a quad. This also applies to Implied multiple specifications. Reduction and reshape (p) are not permitted for 
empty arguments; the argument of add/drop may not be scalar; empty indices are not permitted. A quad (q) can't be typed In response to a quad (nor can the name 
of a function which Itself gets Input from a quad). Quote-quad (m) Is permitted. No more than 32 user functions can be defined In a single worl<space and a function 
may not contain mora than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line, 
in the tape version, arrays are limitad-to five (5) dimensions. 



■SoftSiae, 
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I Don't 
Think 



by Mark Pelczarski 

Well, you may have noticed that 
this here column wasn't in the 
magazine last month. That's 'cause 
ah was humilerated in the May isher 
by the guy from Kansas who said ah 
ain't never been thar. His letter's 
over thar on the bottom right. 

So ah went thar to check it out. 
Couldn't fahnd it for a bit though. 
Seems thar most famous city ain't 
even in Kansas; it's in Missoura! 
Now what the heck do you call that 
kahnd of thankin'? 

Well, ah got thar all raht, after 
checkin' out the Royals. They sure 
been playin' sloppy lately. Not lahk 
the White Sox, although ah shouldn't 
talk so soon. After all, this is only 
May, and bah the tahm y'all read this 
ah may be etin' mah words. At least 
ah'm not one of them Cub fans. 

Well, Kansas was thar. Sure was. 
Gosh, it was excitin'. Darn near as 
excitin' as good ol' Southern II- 
linoise. Someone said they even had 
thirteen whole computer stores in the 
state, one for each of the original 
thirteen colonies, although ah didn't 
get to see any of them, so ah really 
couldn't say fo' sure. They said one 
was in Pittsburg, which ah coulda 
swore used to be in Pennsylvaney. 
They sure don't know whar to put 




We^re In Kansas Anymore,,, 



thar towns down thar. 

Now some people may be settin' 
an' thankin' "he's shor makin' fun 
of those people down thar, and with 
no good raisen at all!" Weel, that's 
not raht, 'cause ah ain't got nothing 
against nobody down thar at all. In 
fact, they is all mahty nice people, 
even though ah was jus' passin' 
through. Mahty nice indeed! 

So what the hayek is all this stuff 
about "not bein' in Kansas no 
more?" Well, you all remember that 
wizard movie; the one whar that girl 
an' her dawg Toto gets whisked away 
by a tornader to this munchkinland, 
sorta like a fairy tale? Well, when she 
walks out of her house an' fahnds 
that she's in this weird place, she says 
to her dawg, "I certainly don't think 
this is Kansas, Toto." 

Well, it's kahnda funny, 'cause 
when ah desahded to name this col- 
umn, ah was thankin' 'bout the last 
buncha years and how thangs have 
changed from twenty or thirty years 
ago to this fairy tale world with all 
kahnds of gizmos an' gadgeos, an' 
little preten' creepy crawlers on 
television screens that you preten' to 
shoot down, an' magic boxes that do 
this an' that, an' ah thought to 
mahself, "this certainly isn't Kansas 
anymore..." 



Sometahms all this stuff seems to 
make real little sense, 'specially when 
people get all wrapped up in it an' 
ferget the rest of what's aroun' them 
an' all. Ah mean, the gizmos and 
gadgeos are neat an' all, but they got- 
ta be kept in prespective. Ah'm not 
gonna talk about prespectives, 'cause 
everyone's got thar own that's raht 
for them. But sometimes it heps for 
everyone to stan' back an' look at 
what that prespective is an' all. You 
know, in the movie, the ozzie part is 
the most fascinatin' an' all, with all 
kinds of interestin' stuff goin' on. 
But what was it she kep' sayin' at the 
end? 

"There's no place like home, 
there's no place like home..." 



Dear SoftSide, 

Attn: Mark Pelczarski 

About "I Don't Think We're in 
Kansas Anymore": 

I think you ain't never bin in Kan- 
sas. At least your writin's ain't from 
Kansas. If you ever growed up in 
Kansas your parents would have 
learnt you everything they knowed 
and you'd git shoved up the crick if 
you done wrong. So don't claim you 
was ever in Kansas 'cause you ain't 
hep enough to understand Kansas 

Andy Anderson 
Helton, KS 



Sports fans 



Enjoy two of your favorites 
without leaving fiome! 



wriiten by David Bolke 



WORLD SERIES 



Tired of golf as a sport you can only play during tfie warmer fialt of tlie year? 
Now you can play it year 'round witti MASTERS GOLF! For the Atari and the 
S-80, [PIASTERS GOLF promises hours and hours of delight. 

(S-80 version originally published as "Prolour Golf") 

S-80 Cassette $9.95 

Atari Cassette $9.95 



Ah yes, it's springtime and a young man's thoughts turn to... baseball? How 
would you like a baseball season with no threats of player strikes or free agent 
negotiations that leave the shattered remnants of once-mighty teams strewn 
about the playing fields? We offer you your own league. Batter up! 

S-80 Cassette $9.95 

Atari Cassette $9.95 

Apple Cassette $9.95 

Apple Disk $14.95 
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MASTERS GOLF 





>OT UK 

Seleclioru 

^^^ 6 5Milh Ilt*«1 nlllorri NH OlOSt 
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Let PASCAL-80 talk some sense 
into your computer 



k' > 



Phelps Gates, the author of "APL-80", brings you 'Tascal-80' 
for your S-80. Now you can add another dimension to your 
programming skills by using this fast version of the compiled 
language Pascal. 

"Pascal-80" is a powerful, structured and well-defined language 
for the S-80 microcomputer. This easy-to-use language makes 
writing well-structured, and therefore easily understandable 
programs simple. "Pascal-80" supports most of the features of 
UCSD Pascal, including RECORD, SET (to 256 members), FILE 
(text and record oriented), n-dimensional ARRAY (and ARRAY of 
ARRAY, etc.), global GOTO ELSE in CASE statements, and BCD 
arithmetic accurate to a full 14 places (including log and trig 
functions), 6-digit optional. "Pascal-80"features a 23600 byte 
workspace in 48K, a 1000 line per minute compiler, an easy-to-use 
text editor, and plain English error messages, all the features you 
would expect in a Pascal costing hundreds more. 



Variable Types: .... Boolean, integer, char, real, real6, and text. 

Constants: Maxint, minint, true, false, and pi. 

Files: Input, output, and Ip. 

Procedures: Read, readin, write, writein, reset, rewrite, close, seek, els, 

and poke. 

Functions: Abs, arctan, call, chr, cos, eof, coin, exp, inkey, in, mem, 

odd, ord, peek, pred, round, sin, signif, sqr, sqrt, succ, and trunc. 




"Pascal-80" does not implement variant records, pointer 
and window variables, or functions and procedures used as 
parameters. 
S-80 32K Disk $99.95 



MasterCaid 




■Satsiae, 



loru- 



6 iouth Strant Milford NH 03055 
For Orders Only 603-673-0585 
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The Sensuous Programmer 



by "J" 

THE THIRD 
SEDUCTIVE INSTALLMENT 

Last month left us out on the 
street, trying to capture disreputable 
characters hanging around in 
keyboard buffers. This month: the 
other side of the street, and how to 
kick characters out onto it. 

To refresh your memory (and to 
reassure you that this is indeed a col- 
umn about computer programming), 
we're talking about communication 
between human and machine. 
Specifically, we're talking about the 
two-way interaction between the user 
and the computer that takes place 
during the execution of a BASIC pro- 
gram, which the programmer builds 
into that program when he writes it. 
Having covered several statements 
dealing with input last month, in- 
cluding INPUT, GET, INKEYS, 
LINE INPUT, and a special PEEK, 
this column will cover the other side 
of the communication street, output. 

Who among us has not begun a 
programming career by tremulously 
typing in a program such as 

10 PRINT "HELLO" 

and then sat in reverent awe as the 
word "HELLO" was printed on the 
screen right under the RUN com- 
mand? It's possible to avoid using a 
single PRINT statement in a BASIC 
program and still have it do 
something meaningful, but it's not 
very common. Even a graphics 
display program will normally have 
PRINT statements to give some kind 
of introductory information. 

Very often the output of a program 
— what it prints on the screen and the 
format in which it prints it — is 
dismally neglected. It's easy to be 
sloppy or cursory here, because the 
operation of the program doesn't 
usually depend on how great or awful 
the screen looks. But the appearance 
of the screen does affect the "feel" 
of a program. A lot of programs have 
a TACKY feel to them. They're full 
of misspelled words, misused or 
nonexistent punctuation, and screen- 
fulls of cluttered and hard-to-read in- 
formation. 

Now, I have sympathy for people 
who are poor spellers; I realize that 
overall intelligence and personal 
worth are not really linked to one's 
ability to spell "querulous" or 





"sacrilegious". I married a self- 
confessed poor speller, and have 
finally come to accept this handicap 
as a minor brain defect in an other- 
wise extremely intelligent person! 
(We did get off to a bad start, 
though, when I began returning love 
letters with misspelled words marked 
in red.) NEVERTHELESS, com- 
puter programs, Hke magazine ar- 
ticles, should not have misspellings in 
them. (I dump all responsibiUty for 
any such glitches in this article onto 
the typesetters.) 

If I sound just like your high 
school English teacher, read on, as I 
make a few suggestions on punctua- 
tion and the general appearance of 
the screen/text display. Then I'll 
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return to the question of getting the 
display to look that way using the 
available BASIC statements. Here 
are the suggestions: 

1. A comma should normally be 
followed by a space. 

2. A period, question mark, or ex- 
clamation point at the end of a 
sentence should be followed by TWO 
spaces. 

3. The apostrophe is commonly 
used to massacre possessive pronouns 
and other parts of speech. The most 
frequent problems are with contrac- 
tions versus possessives. Please 
remember that "you're" and "it's" 
are contractions meaning "you are" 
and "it is"; avoid confusing them 
with the words "your" and "its" 
which show ownership. ("It's your 
computer, and you're its owner.") 

4. Paragraphs should have their 
first line indented, or preceded by a 
blank line, or both, for good 
readability. 

5. For a short message or block of 
text, it's usually worth the extra ef- 
fort to display it near the center of 
the screen, instead of just sticking it 
on any old line. 

6. Keep the screen clear of unneed- 
ed text. At the same time, keep need- 
ed text conveniently located on the 
screen. 

7. Use a variety of approaches to 
displaying text, to maintain the user's 
attention. 

The formatting of a program's 
output deserves careful attention. 
When that attention isn't given, it 
shows. A lot of the programs submit- 
ted to computer magazines for 
publication are rejected not so much 
because they're poorly conceived, but 
because they're poorly executed — 
they have a tacky, ill-mannered feel 
rather than a friendly, well-bred feel. 
So let's jump into the BASICs of the 
output game. 

To master output, you must of 
course master the PRINT statement. 
PRINT will display on the screen, 
starting at the current position of the 
output cursor, whatever numerical or 
string variable or constant (or com- 
bination thereof) that you specify. 
Here's a statement that will print one 
string constant, one numerical 
variable, one numerical constant, 
and one string variable: 

10 PRINT "STOCK NUMBER:", 
N; 884; Z$ continued on next page 

19 



continued from previous page 

Remember that the difference be- 
tween a constant and a variable is 
that the value assigned to a variable 
can change, whereas a constant has a 
self-defined, unchanging value. The 
numerical variable N can be assigned 
the values 2 or -34 or 16.66667, all 
three of which are themselves 
numerical constants. The string 
variable Z$ can be assigned the value 
"GTE399" or "X*#;)$-t- %!?" or 
even "Z$" all of which are string 
constants. Note the difference be- 
tween the variable Z$ and the con- 
stant "Z$": To the computer, the 
former is like the name label on an in- 
ternal mailbox, and the latter is what 
is contained in that mailbox. 

The various items in the above 
PRINT are separated by punctuation 
marks. The comma forces the next 
characters to be printed starting at 
the next built-in "tab stop" on the 
screen; the semicolon causes subse- 
quent characters to be printed Im- 
mediately following the previous 
ones. (Some B ASICs allow you the 
option of omitting the semicolon be- 
tween items to be printed.) If the end 
of the current line is reached, the next 
characters will "wrap around" to the 
beginning of the next line. At the end 
of the above PRINT statement, since 
the last character is not a comma or a 
semicolon, the output cursor will 
automatically move to the first posi- 
tion of the next line, to wait for its 
next printing job. 

Last month I mentioned an aspect 
of input that would be picked up this 
month under the subject of output. I 
have seen programs which, when 
RUN, display nothing but a question 
mark and cursor on an otherwise 
blank screen. I don't know about 
you, but I NEVER type in anything 
more than my name, rank, and serial 
number in such cases. For all I know, 
such a program may be part of a 
Communist plot to take over my 
mind — or worse, to take over my 
computer. So the need arises for 
some kind of prompting message to 
be printed on the screen whenever the 
user is expected to enter something 
from the keyboard. 

Most BASICS (Atari's is an excep- 
tion) allow you to print such a 
prompting message in an INPUT 
statement, without having to use a 
separate PRINT. You COULD print 
a prompt in the following way (note 
the trailing semicolon on the PRINT 
statement which keeps the cursor 
from dropping down to the beginning 
of the next line): 

20 PRINT "PLEASE TYPE IN 
YOUR NAME: "; 
20 



25 INPUT N$ 

Or, using the string-printing 
feature of the INPUT statement, you 
could substitute: 

20 INPUT "PLEASE TYPE IN 

YOUR NAME: "; N$ 

The message must be between 
quotation marks, and must be 
followed by a semicolon (or, in case 
of Apple's Integer BASIC, a 
comma). 

These two approaches will have ex- 
actly the same effect with the S-80, 
but will produce slightly different 
prompting messages on the Apple. 
Using the separate PRINT will result 
in 

PLEASE TYPE IN YOUR 

NAME: ?♦ 

(where the * denotes the flashing cur- 
sor), whereas including the quotation 
mjirks in the INPUT will result in 

PLEASE TYPE IN YOUR 

NAME: * 

In the latter case the question mark 
is suppressed — which is quite handy 
when the prompting message isn't 
really a question, as in this example. 
And, if you don't have a prompt to 
print but still want to suppress the 
"?", you can just use double quota- 
tion marks, like so: 

20 INPUT " "; X$ 

The differences among computers 
start making things even more in- 
teresting from here on. Most BASICs 
have some form of a TAB statement, 
which functions just as a typewriter 
tab stop does. The line 

50 PRINT TAB(5) "COLUMN 
1"; TAB(20) "COLUMN 2" 

will cause the first string to be printed 
starting in column 5 of the current 
line, and the second starting in col- 
umn 20. Or will it? What if the prior 
lines were 

30 PRINT 

40 PRINT TAB(9) "THIS IS A 
CHART"; 

These lines would leave the cursor 
at column 26; what effect would line 
50 have then? Would the result be 
(a), (b), or (c)? See Figure 1 . 

Option (a) shows the TAB drop- 
ping down to the next line if the out- 
put cursor is already to the right of 
the specified tab location. Option (b) 
shows it locating the printout on the 
current line at the specified tab loca- 

SoftSidc July 1981 



tions, regardless of where the cursor 
may be. And option (c) shows it 
printing as closely as possible to the 
specified tab position, but not being 
able to backspace to get there. If 
you're not sure which it will do, 
check it out on your computer. 

Ah, but what if you have an Atari, 
which doesn't have a TAB function 
in the first place? Well, then you 
either include the right number of 
spaces in your PRINT statement, or 
you use the POSITION statement. 
This allows you to position the out- 
put cursor anywhere on the whole 
screen, horizontally and vertically. 
The line 

100 POSITION 5, 10 

will place the next character printed 
in the fifth column on the tenth line 
of the screen. Note, however, that the 
cursor (which always stays on the 
screen unless you POKE 752,1) will 
not make its move until the actual 
PRINT statement is encountered. 

This same kind of absolute cursor 
positioning is available on the Apple 
and S-80. The Apple breaks up the 
job into its horizontal and vertical 
components using HTAB and 
VTAB. The line 

100 HTAB 5 : VTAB 10 

would have the same effect on the 
Apple as the above POSITION state- 
ment has on the Atari. With the Ap- 
ple, though, HTAB is not limited to 
the screen width (40 columns); it will 
accept values up to 255. The effect of 
numbers greater than 40, as you 
might expect, is to wrap around to 
the beginning of the following line as 
the 41st, then 81st, then 121st, etc., 
position. 

The S-80's PRINT @ statement is 
similar to Apple's HTAB, except that 
it always starts its reckoning at the 
top hne of the screen rather than 
whatever the current line is. This 
gives the capability, then, of directing 
printing to any point on the screen 
using a single number. It accepts 
numbers in the range through 1023, 
covering all 1024 printing positions. 
After using this system for awhile, 
one gets very good at thinking in 
multiples of 64, since each new screen 
line begins with a position number of 
0, 64, 128, etc. The equivalent of the 
above two lines, then, for the S-80 
would be 

100 PRINT @649,; 

Most commonly the trailing 
semicolon would be replaced by 
whatever you want printed, but the 
statement also can be used exactly as 
shown to control the starting position 
of the next PRINT. 



(a) 


THIS IS A CHART 




COLUMN 1 COLUMN 2 


(b) 


COLUMN 1 IS A CCOLUMN 2 


(c) 


THIS IS A CHARTCOLUMN ICO 




Figure 1 



Incidentally, all these cursor- 
positioning instructions can be used 
with INPUT statements as well as 
with PRINTS. That makes it easier to 
keep the display in order and assure 
that the user's input is printed exactly 
where it would look the best — not 
necessarily right next to the prompt- 
ing message. You might have occa- 
sion to use coding such as this (for 
the Apple, in this case): 

200 VTAB 5 

210 PRINT "PLEASE TYPE IN 
THREE NUMBERS" 

220 VTAB 10 : HTAB 1 : INPUT 
" "■ A 

230 VTAB 10 : HTAB 13 : 
INPUT " "; B 

240 VTAB 10 : HTAB 25 : 
INPUT " "; C 

In addition to PRINT and the 
various tabbing statements, the most 
valuable output formatting com- 
mand is the one that clears all 
displayed text instantaneously and 
returns the cursor to the upper left 
corner of the screen. The options for 
this action on the three computers in 
question are as follows: 

S-80: CLS 

Atari: PRINT "esc ctrl-clear" or 
PRINT CHR$(125) 

Apple: HOME (Applesoft) or 
CALL -936 

This command is extremely useful for 
keeping assorted garbage off the 
screen, which helps the user to con- 
centrate on what's currently expected 
of him. 

Beyond these basics of text display, 
each computer has its unique 
capabilities that allow you to dress 
things up a bit. These are too varied 
to cover in detail here, but some of 
them at least deserve mention. 

Available on the S-80 is a powerful 
formatting statement, PRINT US- 
ING, which allows you to define a 
format for printing numbers (e.g., in 
dollar-and-cents decimal form). 
Another useful feature is the double- 
width character mode, which can 
catch one's eye for titles and short 
blocks of text, and for a variety of 



game boards and displays where 
larger characters are desirable. (If on- 
ly they could be mixed with normal 
characters. . . .) You can also build 
large text characters or other shapes 
using the available block graphics 
characters, assembling them into 
strings to be printed on the screen. 
The ability to intermix these with 
regular text (and with normal 
SET/RESET graphics) allows lots of 
variety in display formatting. 

Available on the Atari are not only 
double-width, but double-width-and- 
height characters as well, all in your 
choice of colors (GRAPHICS modes 
1 and 2). Although these can't inter- 
mix with each other or with normal 
text on the upper 20 lines of the 
screen, normal text can be printed on 
the bottom four lines at any time. 
You can also print a variety of 
graphics characters such as arrows, 
pips, and other shapes (not to men- 
tion lower-case letters); and all 
characters can be printed either nor- 
mally or in inverse video. You also 
have the capability of setting the left 
and right margins of the text window, 
so that one area of the screen can be 
preserved while text is printed and 
scrolled in another area. There's no 
excuse except laziness for a boring 
text display on the Atari! 

Available on the Apple is just one 
upper-case character set, but you can 
manipulate it in a variety of ways. 
Characters can be printed in normal, 
inverse, or flashing modes, and the 
speed of the printing can be adjusted 
from normal (top) speed down to an 
agonizingly slow pace. All four 
margins of the text screen can be ad- 
justed, down to a one-character 
display if you choose. And there's a 
convenient SPC( ) instruction which, 
when used in a PRINT, will print the 
specified number of spaces. 

Much more remains to be said 
about the specifics of output format- 
ting. But the essential point is that it's 
both worthwhile and fun to put some 
creative energy into this aspect of 
programming. Nobody loves a tacky 
program. ^ 
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x-uiinG 



by 

Chris Freund 







For the thousands who 
have enjoyed X-Wing Fighter, 
X-Wing II presents a totally 
new element in the game! 

You are the pilot of an 
X-Wing fighter .... Your 
Mission, Destroy the Death 
Star! 



Where X-Wing I left Death 
Star looming on the screen, 
X-Wing II lets you guide your 
fighter into the trench, find 
the exhaust port, aim and 
fire — all the while avoiding 
enemy fighters. Excellent 
graphics, 12 levels of play, 
and extensive INKEY$ 
commands make this one of 
our most exciting "real time" 
games. 

S-80 16K Cassette .... $9.95 



3Sft5ia 



\ons 



21 




Chemistry Drill 



by Brent Packer 

Apple and Atari translations by Jon 
Voskuil. 



"Chemistry Drill" is a program 
for the S-80, Atari, and Apple requir- 
ing 16K RAM. The Apple version 
also requires Applesoft. 

"Double, double toil and trouble / 
Fire burn and cauldron bubble!" 
You literary types may think that's a 
line from Shakespeare's "Macbeth", 
but actually it's the refrain from the 
"Chemistry Lab Theme Song." 
Probably more people take chemistry 
because of fantasies about brewing 
various magical potions, than 
because of any real interest in the 
meatier parts of the science. 



But then the first day of class ar- 
rives, the long-awaited initiation into 
the wonders of test tubes, Erlenmeyer 
flasks, Bunsen burners, and pipettes, 
and what happens? The teacher 
hands out papers with odd-looking 
symbols and names on them, and in a 
threatening voice says "Memorize 
these or you'll fail this class!" 

"Chemistry Drill" was written by 
a chemistry student who decided to 
bypass flash cards and other such 
outdated media, and to program his 
computer to check his basic 
chemistry knowledge. The result? 
A-pluses on every quiz covering 
elements, radicals, and oxidation 
states! Whether you're taking 
chemistry as a subject in school or 
not, you'll have fun trying to learn or 



to recall the material included in this 
program. And if you're up to it, you 
can add your own DATA statements 
and revise the coding so that you can 
include more material, or material on 
different subjects altogether. 

When you RUN the program, you 
are first asked to type in your name, 
and then to select from a menu of 
subject areas. Choosing "Element 
Names" will require you to enter the 
correctly-spelled name of the element 
which matches the symbol that the 
computer displays. If you misspell it, 
but get at least the first three letters 
right, then you'll get two more 
chances to spell it correctly. The sec- 
ond choice, "Element Symbols," is 
the reverse of the first, calling for you 
to enter the correct symbol for the 
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named element. The next two 
choices, "Radical Names" and 
"Radical Symbols," present drills 
similar to the first pair, but using 
radicals (the chemical kind) instead 
of elements. And the last two options 
quiz you on "Oxidation States" and 
"Solubility Rule Numbers." When 
the drill is over, the computer reports 
your performance and prints out an 
appropriate comment (not always 
complimentary). 

The program currently has 50 
elements, 33 radicals, and 17 oxida- 
tion states. To expand the number of 
elements, change the value assigned 
to N in hnes 200 and 205, and Nl in 
line 300, to the new number; and add 
new DATA lines following line 1034. 
For adding radicals, change N in lines 
210 and 215 and add DATA 



statements following line 1220. Ox- 
idation states can also be augmented 
by changing N in line 220 and adding 
DATA following line 1330. 

This program won't give you for- 
mulas for magic potions, but it might 
help you learn what you need to 
know to brew your own. 

VARIABLES 

A$(*): Array for storing answers. 

C: Chosen drill number. 

C$: Keyboard input character. 

F: Flag governing the reading of 

DATA as question/answer or 

answer/question. 

Fl: Flag controlling the reading of 

DATA into the Q$ and A$ arrays. 

1$: The type of information to be 

input by the user as the answer. 

I, J, K, KI: Loop variables. 



N: Number of questions available in 
category. 

Nl: Number of data pairs to be 
read in category. 
NAM$: Name of program user. 
P: Percentage of correct answers. 
P$: The type of information that 
the computer is printing out as the 
question. 

Q: Number of questions chosen by 
user. 

Q$ (*): Array for storing questions. 
R (*): Array for keeping track of 
question numbers already used. 
Rl: Random number to select right- 
answer response. 

S$ (*): Responses to wrong answers. 
V$: Keyboard input character. 
WR: Number of wrong answers. 
Zl: Number of tries to spell word 
correctly. 



S-80 VERSION 


Input the nuiber ai questions desired. 


Initiilization. 




1 CLEAR(500) 


400 CLS:PRINT"HON MANY QUESTIONS, ";NAM»!lNPUT Q 


2 DIH 9$(100),A$(100) 


410 IF Q>N THEN PRINT"FEHER":FORKI=1T0100:NEXTKI:BOT0400 


3 DIH R(IOO) 




10 CLS:INPUT'YOUR NAHE: "iNAH $iCLS 


Choose a randoi question and check to see that it has not been 


50 CLS 


used already. 


Display the ienu ol choices and go to the appropriate place in 




the prograi. 


500 FOR J=l TO B 


100 PRINTTAB(18)"C H E H I S T R Y DRILL" 
110 PRINT 

120 PRINT'KHICH MOULD YOU LIKE TO BIVE' 
130 PRINTTAB(18)M. ELEMENT NAMES' 


510 R(J)=RND(N) 

520 IF J=l THEN 560 

530 FOR K=l TO J-1 

540 IF R(J)=R(K) THEN 510 

550 NEXT K 

560 NEXT 1 


132 PRINTTAB(18)"2. ELEHENT SYHBOLS" 


150 PRINTTAB(18)'3. RADICAL NAMES' 


160 PRINTTAB{18)"4. RADICAL SYMBOLS" 




165 PRINTTAB(18)'5. OXIDATION STATES' 


Responses to wrong answers. 


168 PRINTTAB(18)"6. SOLUBILITY RULE NUMBERS" 




169 PRINT 


600 S$(1)="NR0N6. OK THIS TIME... '+NAM» 


170 PRINT'BIVE NUMBER OF CHOICE: ':C$=INKEY» 


602 S»(2)="MR0NB. THINK A LITTLE HARDER, "tNAM * 


175 C=VAL(C»):IF C=0 THEN C»=INKEY»:80T0175 


604 S$(3)="MR0NB AGAIN. YOU'RE TRYING MY PATIENCE "+NAH $ 


180 ON C GOTO 200,205,210,215,220,230,170,170,170 


606 Si(4)='STUPID! IMBECILE! MORONI IDIOT! YOU'RE MR0N6!! '+NAH 


Assign the proper number oi data iteis (N) and the appropriate 


values ^or Pt and It. 


Print the chosen questions and input the answers. 


200 N=50:F=1:P»='SYHB0L":I*='ELEMENT':B0T0300 


610 FOR J=l TO B 


205 N=50;P»='ELEMENT": It="SYHBOL":BOT0300 


620 CLS 


210 N=33:P$='SYMB0L":I»='NAHE':60T0300 


625 PRINT 


215 F=l:N=33!P$="NAME':I»="SYMB0L':S0TO3O0 


630 PRINT" THE "P$' IS: "AtlRtJ)) 


220 N=17:F=l:Pt='ELEMENT':I»="0XIDATI0N STATE 'sBOTOSOO 


635 PRINT 


230 N=7:P$='RULE '!l$="RULE 1 ":G0T0300 


640 PRINT'NON, 'NAM $", BIVE THE CORRESPONDING "!»' : '; 




645 INPUT A« 


Read the appropriate data for the questions and the correct 


650 IF A»=Q»(R(J)) THEN 680 


ansNers. 


655 IF COl AND C03 THEN 665 




656 IF Zl>2 THEN 662 


300 Nl=50 




302 FOR 1=1 TO Nl 


H Hrst three letters are correct, try re-spelling. 


305 IF F=0 THEN 315 
310 READ A$(I),Q»1I) 


660 IF LEFT$(A$,3)=LEFT$(B$(R(J)),3) THEN PRINT"MISSPELLED..TRY 


312 SQT0320 


AGAIN "!Z1=Z1+1:F0RKI=1T0100:NEXTKI:B0T0620 


315 READ Q»(I>,A$(I) 




320 NEXT I 


Wrong answer; print appropriate response. 


330 IF C>2 AND F1=0 THEN Fl=l!Nl=33:60T0302 




335 IF C>4 AND Fl=l THEN F1=2!N1=17:BOT0302 

336 IF C>5 AND Fl=2 THEN F1=3:N1=7:B0T0302 


662 PRINT'FORGET IT...." 

continued on next page 
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continued from previous page 

bbZ 21=0 

fa&5 MR=UR+1 

670 IF NR<2 THEN PRINTS»(1) 

672 IF «R>I AND MR<5 THEN PRINTS$(2) 

674 IF HR>4 AND HR<10 THEN PRINTS$(3I 

676 IF NR>9 THEN PRINTS* (4) 

67B PRINT'RIGHT ANSNER:"Q$(R(J)) :60T0690 

Right answer; print encouraging response. 

680 R1=RND(3):0N Rl GOTO 682,684,686 
682 PRINT'BOOD SH0H";G0T0690 
684 PRINT"EXCELLENT":B0TQ690 
686 PRINT' JOLLY 600D':SOT0690 
690 FOR KI=1 TO 800:NEXT KI:Z1=0 
695 NEXT J 

End oi drill. Print the results and offer another drill, 

700 CLS:P=INT(((fl-NR)/Q)»100) 

710 PRINTNAH »", YOU DID "Q-HR" CORRECTLY OUT OF "Q 

720 PRINT'THAT'S: "P"l" 

730 IF P>89 THEN PRINT'FINE JOB-YOU'VE STUDIED ENOUBH" 

740 IF P<60 THENPfllNT'BY YOUR SCORE, THIS MUST BE JUST YOUR FIRS 

T TINE AROUND FOR THIS CLASS" 

750 PRINT: PRINT'ANOTHER ROUND (Y/N)"!V»=INKEY$!lF V»='N' THEN EN 

D 

755 IF V»="THEN V$=INKEY$ 

756 IF V»='N' THEN END 

757 IF V$="Y" THEN 760 

758 60T0755 
760 RUN 




Data for eleients. 

1010 DATA H, HYDROGEN, HE, HELIUH, LI, LITHIUB, BE, BERYLLIUN 

1012 DATA B, BORON, C, CARBON, N,NITROGEN,0, OXYGEN 

1014 DATA F, FLUORINE, NE, NEON, NA,S0DIUn,l1G,NAGNESIUI1 

1016 DATA AL,ALUHINUH,SI,SILICON,P,PHOSPHORUS,S,SULFUR 

1018 DATA CL, CHLORINE, AR,ARGON,K,POTASSIUH,CA,CALCIU« 

1020 DATA SC,SCANDIUH,TI,TITANIUM,V,VANADIUI1,CR,CHRDHIUM 

1022 DATA HN, MANGANESE, FE, IRON, CO, COBALT, NI, NICKEL 

1024 DATA CU, COPPER, ZN, ZINC, AS, ARSENIC, BR, BROHINE 

1026 DATA KR,KRYPT0N,RB,RUBIDIUN,SR,STRONTIUH,H0,H0LYBDENUH 

1028 DATA AG,SILVER,CD,CADHIUH,SN,TIN,SB, ANTIMONY 

1030 DATA I, IODINE, CS,CESIUM,BA,BARIUM,N,TUNGSTEN 

1032 DATA PT,PLATINUM,AU,GOLD,HG,MERCURY,PB,LEAD 

1034 DATA BI, BISMUTH, U, URANIUM 

Data for radicals. 

1100 DATA ACETATE, C2H302-1,AMM0NIUM,NH4+1 

1101 DATA BICARBONATE, HC03-1 
1110 DATA BISULFATE,HS04-1 
1115 DATA BISULFITE,HS03-1 
1120 DATA HYPOCHLORITE, CLO-I 

1130 DATA CHLDRITE,CL02-1,CHLORATE,CL03-I,PERCHLORATE,CL04-1 

1140 DATA PERMANGANATE, MN04-1, NITRATE, N03-1, HYDROXIDE, OH-1 

1150 DATA NITRITE, N02-1, CYANIDE, CN-l,CARB0NATE,C03-2 

1160 DATA SULFlTE,S03-2,SULFATE,S04-2,MAN6ANATE,MN04-2 

1170 DATA OXALATE, C204-2,CHR0MATE,CR04-2, BICHROMATE, CR207-2 

1180 DATA PHOSPHATE, P04-3, ARSENATE, AS04-3 

1190 DATA CUPROUS, CU+l,CUPRIC,CU+2 

1200 DATA FERROUS, FE+2, FERRIC, FE+3, STANNOUS, SN+2 

1210 DATA STANNIC,SN+4,PLUMB0US,PB+2,PLUMBIC,PB+4 

1220 DATA MERCUR0US,HG2+2, MERCURIC, HG+2 

Data for oxidation states. 

1300 DATA BE,+2,LI,+1,ZN,+2,AG,+1 

1310 DATA H,+1,NA,+1,K,+1 

1320 DATA MG,+2,CA,+2,BA,+2 

1330 DATA AL,+3,0,-2,S,-2,BR,-l,I,-l,CL,-l,F,-l 

Data for solubility rules. 

1400 DATA 1,-ALL NA, NH4H, AND K COMPOUNDS ARE SOLUBLE' 

1404 DATA 2, "ALL NITRATES, ACETATES, AND CHLORATES ARE SOLUBLE" 

1405 DATA 3, "ALL HALIDES ARE SOLUBLE EXCEPT: A6,HB,PB" 

1406 DATA 4, "ALL SULFATES ARE SOLUBLE EXCEPT: BA,CA,SR,RA,PB" 
1408 DATA 5, "ALL OXIDES ARE INSOLUBLE EXCEPT: RULE 1 AND GROUP 

II (BE,MG,SR,6A,RA,CA) WHICH WILL REACT" 

1410 DATA 6, "ALL HYDROXIDES AND SULFIDES ARE INSOLUBLE EXCEPT R 
ULE 1 AND GROUP II I2A ON TABLE)" 
1412 DATA 7, "EVERYTHING NOT ABOVE MENTIONED IS INSOLUBLE- 



APPLE VERSION 

2 DIH Q*(100),A*(100),R(100) 
10 HOME ! VIAE lOi INPUT "YOUR N 

AHE! ";NAH« 
50 HOME : VTAB 3 



Display the lenu of choices and go 
to the appropriate place in the 
prograi, 



100 



PRINT 
R Y 



TAB( 6)'C H E K 
DRILL" 



I S T 



120 VTAB 8: PRINT 'NHICH HQULD Y 

OU LIKE TO GIVE:": PRINT 
130 PRINT " 1. ELEMENT NAMES" 
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140 


PRINT ■ 
S" 
PRINT " 


2. 


ELEMENT SYMBOL 


150 


3. 


RADICAL NAMES- 


160 


PRINT ■ 
S" 
PRINT • 


4. 


RADICAL SYMBOL 


163 


5. 


OXIDATION STAT 




ES" 






168 


PRINT " 
E NUNBERS" 


6. 


SOLUBILITY RUL 
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170 PRINT : PRINT "BIVE NUMBER 
F CHOICE: '\t INPUT C$ 

175 C = VAL (C*): IF C < 1 OR C > 
6 THEN 170 

180 ON C 80T0 200,205,210,215,22 
0,230 



Assign the proper nuiber of data 
iteis (N) and the appropriate 
values for PI and II. 



200 N = SOsF = 1:PI = 'SYMBOL'; II 
= "ELEMENT"! SOTO 300 



205 N = 50:P< = "ELEHENTM* = 'S 

mOi'i GOTO 300 
210 N s 33iP$ = "SYHBOLMI = 'NA 

«E'i 60T0 300 
215 F = 1:N = 33!P« = 'NftHE":I« = 

"SYMBOL": GOTO 300 
220 N = 17!F = ltP« = "ELEHENT'iI 

♦ = "OXIDATION STATE": GOTO 

300 
230 N = 7:P» = "RULE ■:I$ = "RULE 



Read the appropriate data for the 
questions and the correct answers. 



300 Nl = 50 
302 FOR I = 1 TO Nl 
305 IF F = THEN 315 
310 READ AI(I),Qt(I) 
312 GOTO 320 
315 READ 0((I),AflI) 
320 NEXT I 

330 IF C > 2 AND Fl = THEN Fl = 
1:N1 = 33: GOTO 302 

335 IF C > 4 AND Fl = 1 THEN Fl = 
2:N1 = 17: GOTO 302 

336 IF C > 5 AND Fl = 2 THEN Fl = 
3:N1 = 7: GOTO 302 



Input the nuiber of questions 
desired. 



400 HONE : VTAB 5: PRINT "HON HA 
NY QUESTIONS, "iNANI: PRINT 
"(1 - ■;Ni"); "j: INPUT 0: HONE 

410 IF fl > N THEN 400 



Choose randoi questions and check 
each one to see that it is not 
duplicated. 



500 FOR J = 1 TO B 

510 R(J) = INT I RND (1) » N) + 

1 
520 IF J = 1 THEN S&O 
530 FOR K = I TO J - 1 
540 IF R(J) = R(K) THEN 510 
550 NEH K 
560 NEXT J 



Responses to Nrong answers. 
600 SKI) = "OOPS, NRONB. THAT'S 

OK, " * mt 

602 S$(2) = "KRONGi THINK A LITTL 
E HARDER, ' * NANt 



604 St(3) = "HR0N6 AGAIN. YOU'RE 
TRYING NY PATIENCE," + NAH» 

606 S$(4) ' "STUPID! INBECILE! 
NORON! IDIOT! YOU'RE H 
R0N6, ' * NANt 



Print the chosen questions and 
input the answers. 



610 FOR J == 1 TO D 
620 HONE 

630 PRINT : PRINT "THE •;?%]' IS 
: "i: IF C = 6 THEN PRINT 




635 PRINT A$(R(J)) 

640 PRINT : PRINT 'NON, "iNAM»i" 

, GIVE THE": PRINT 'CORRESPO 

NDINS "ilt;": "; 
645 INPUT A«: PRINT 
650 IF A$ = Qt(R(J)) THEN 680 

655 IF C < > 1 AND C < > 3 THEN 
665 

656 IF 21 > 2 THEN 662 



If first three characters are 
correct, try re-spelling. 



640 IF LEFT$ (A«,3) = LEFT* (6 
*(R(J)),3) THEN PRINT "NISS 
PELLED...TRY ASAIN":Z1 = Zl + 
1: GOTO 645 



Hrong answer; print appropriate 
response. 



662 PRINT "FORGET IT. . ." 

663 Zl = 

665 HR = MR M 

670 IF HR < 3 THEN PRINT S»(l) 



672 IF HR > 2 AND HR < 6 THEN PRINT 

S*(2) 
674 IF HR > 5 AND HR < 10 THEN PRINT 

S<(3) 
676 IF HR > 9 THEN PRINT S«(4) 
678 FOR KI = 1 TO 500: NEXT KI: PRINl 

: PRINT "RIGHT ANSHER: ■;B$ 

(R(J)); FOR KI = 1 TO 1000: NEXT 

KI: GOTO 690 



Right answer; print encouraging 
response. 



680 Rl = INT ( RND (1) I 3) M 

681 PRINT : ON Rl GOTO 682,684,6 
86 

682 PRINT "600D SHDH": GOTO 690 
684 PRINT "EXCELLENT": GOTO 690 
686 PRINT 'JOLLY GOOD" 

690 FOR KI = 1 TO 1000: NEXT KI 
695 NEXT J 



End of drill. Print the results 
and offer another drill. 



700 HOHE :P = INT (((Q - HR) / 

0) « 100) 
710 VTAB 5: PRINT NAN*;", YOU DI 

D ";B - HR;" CORRECTLY": PRINT 

"OUT OF ";B 
720 PRINT : PRINT "THAT'S ";P;"X 

RIGHT." 
730 IF P > 89 THEN PRINT "FINE 

JOB-YOU'VE STUDIED ENOUGH." 

740 IF P < 60 THEN PRINT "BY YO 

UR SCORE, YOU NUST BE FAILIN 

6..." 
750 PRINT : PRINT "ANOTHER ROUND 

? ";: GET V«: IF V« = "N" THEN 

END 
760 RUN 



Data for eleients. 

1010 DATA H, HYDROGEN, HE, HELIUN, 
LI,LITHIUN,BE,BERYLLIUN,B,BO 
R0N,C,CARBDN,N,NITROGEN,O,OX 
Y6EN 

1014 DATA F, FLUORINE, NE,NEON,NA 
, SODIUM, HE, HAGNESIUH,AL,ALUH 
INUH,SI, SILICON,?, PHOSPHORUS 
,S, SULFUR 

1018 DATA CL, CHLORINE, AR, ARGON, 
K,POTASSIUN,CA, CALCIUM, SC,SC 
ANDIU«,TI,TITANIUN,V,VANADIU 
I1,CR,CHR0NIUN 

continued on next page 
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continued from previous page 

1022 DATA I1N,NANSANESE,FE,IRDN, 
CO,COBALT,NI,NICKEL,CU,C0PPE 
R,ZN,ZINC,AS,ARSENIC,BR,BR0I1 
INE 

1026 DATA KR,KRYPTON,RB,RUBIDIU 
H,SR,STRONTIUH,nO,NOLYBDENUH 
,AG,SILVER,CD,CADI1IUH,SN,TIN 
,SB,ANTIHONY 

1030 DATA I, IODINE, CS,CESIUH,B 
A,BARIUH,H,TUN6STEN,PT,PLATI 
NUI1,AU,6DLD,H6,I1ERCURY,PB,LE 
AD,BI,BISI1UTH,U,URANIUN 



Data for radicals. 

1100 DATA ACETATE,C2H302-1,ANN0 
NIUH,NH4il, BICARBONATE, HC03- 
1,BISULFATE,HS04-1, BISULFITE 
,HS03-1 

1120 DATA HYP0CHLQRITE,CL0-1,CH 
L0RITE,CL02-1,CHL0RATE,CL03- 
1,PERCHL0RATE,CL04-1,PERMAN6 
ANATE,I1N04-1, NITRATE, N03-1 

1150 DATA HYDROXIDE, 0H-1,NITRI 
TE,N02-1, CYANIDE, CN-1, CARBON 
ATE,CQ3-2,SULFITE,S03-2,SULF 
ATE,S04-2,RAN6ANATE,l1ND4-2 

1170 DATA OXALATE, C204-2,CHR0HA 
TE,CR04-2,DICHROI1ATE,CR207-2 
, PHOSPHATE, P04-3,ARSENATE,AS 
04-3,CUPR0US,CU+l,CUPRIC,CU+ 
2 



2 
1200 DATA FERR0US,FE+2,FERRIC, 
FE^3,STANN0US,SNi2,STANNIC,S 
l+4,PLUHB0US,PB+2,PLUNBIC,PB 
'4, HERCUR0US,H62^2, MERCURIC, 



FE+3, 
H6+2 



Data for oxidation states. 



1300 DATA BE,^2,LI,+1,ZN,+2,A6 
,+l,H,+l,NA,+l,K,+l,l1B,+2,CA 
,+2,BA,+2,AL,+3,0,-2,S,-2,BR 
,-l,I,-l,CL,-l,F,-l 



Data for solubility rules. 



1400 DATA 1,'ALL NA, NH4+1, AND 
K CONPOUNDS ARE SQLUBL 
E' 

1404 DATA 2, 'ALL NITRATES, ACET 
ATES, AND CHLORATES ARE SO 
LUBLE" 

1405 DATA 3, 'ALL HALIDES ARE SO 
LUBLE EXCEPTi A6, H6 
, PB" 



1406 DATA 4, 'ALL SULFATES ARE S 

OLUBLE EXCEPT: BA, CA 

, SR, RA, PB" 
1408 DATA 5, 'ALL OXIDES ARE IN 

SOLUBLE EXCEPT: RULE lAND 6 

ROUP II (BE, N6, SR, BA, RA, 
CA) WHICH HILL REACT' 
1410 DATA 6, 'ALL HYDROXIDES AND 
SULFIDES ARE INSOLU 

BLE EXCEPT RULE t AND 6R0UP 

II (2A ON TABLE)' 
1412 DATA 7,'EVERYTHINB NOT ABO 

VE HENTIQNED IS INSOLU 

BLE" 




ATARI VERSION 

Additional Variables 

AA$: Answer typed in by user. 
CL$: CHR$ (125); clears screen 
when printed. 

SKIP: Number of data to skip over 
in order to get to the type desired. 
X$: Temporary string variable. 

Initialization. 

1 POKE 752,1 

2 DINPt(20),It(20),AA((20),CL$(l) 

3 DIN A«(100),fi<(100),X«(20),NAN«(20), 
R(50) 

5 CL«=CHR$(125)iZl=0 

10 PRINT CL«:POS1TION 2,10!PRINT 'YOUR 

NANE: "i: INPUT NAH«: PRINT CL» 

Display the lenu of choices and go to 
the appropriate place in the prograi. 

100 PRINT I PRINT : PRINT ' C H E H I 
S T R Y DRILL' 
110 PRINT 

120 PRINT 'WHICH NQULD YOU LIKE TO 6IV 
E:':PRINT 

130 PRINT ' 1. ELEMENT NAMES' 
140 PRINT " 2. ELEMENT SYMBOLS- 
ISO PRINT ' 3. RADICAL NAMES' 



160 PRINT ■ 4. RADICAL SYMBOLS' 
165 PRINT ' 5. OXIDATION STATES' 

168 PRINT ' 6. SOLUBILITY RULE NUN 
BERS' 

169 PRINT 

170 PRINT '6IVE NUMBER OF CHOICE: '; 
175 INPUT Xt:C'VAL(X«):IF C<0 OR C>6 T 
HEN 170 

180 PRINT CL(:ON C SOTO 200,205,210,21 
5,220,230 

Assign appropriate nuiber of data to 
skip, and froi ithich to read, and 
assign values for Pt and It. 

200 SKIP=0!N=50:F=l!P«='SYMB0L': I«='EL 

EHENT':60T0 400 

205 SKIP=0!N=50iF=0;P«='ELEMENT': I$='S 

YMB0L":80T0 400 

210 SKIP*50:N=33:F=0iP«='SYMB0L'iI»='N 

AME':8DT0 400 

215 SKIP=50;N=33:F=1:P«»'NAME';I$='SYM 

B0L':60T0 400 

220 SKIP=83iN=17:F=l:P«='ELENENT';I<=' 

OXIDATION STATE';60TD 400 

230 SKIP=100;N=7;F=0:P«='RULE ';I«='RU 

LE « ' 

Input the nuiber of questions desired. 

400 POSITION 2,10:PRINT 'HON MANY QUES 
TIONS, 'jNAMIiPRINT 'd TO ';Ni'): 'i 
410 INPUT flilF B<1 OR B>N THEN 400 
420 PRINT CL« 

Choose randoi questions, checking to 
see that they are not repeated. 

500 FOR J=l TO Q 

510 R(J)=INT(RND(l)tN^l) 

520 IF J=l THEN 560 

530 FOR K=l TO J-1 

540 IF R(J)=R(K) THEN 510 

550 NEXT K 

560 NEXT J 

Skip over data to chosen 
quest ion /answer pairs, present 
questions and input ansHcrs. 

610 FOR J=l TO B 
615 RESTORE 

620 FOR M TO SKIP^R(J):READ Bt,A$:NE 
XT I 

625 IF F=l THEN X«=Q«:Ot'A(:A$>X« 
630 PRINT CL»:PRINT :PRINT 'THE 'iP«i' 
IS: 'j:IF C=6 THEN PRINT 
632 PRINT AdPRINT :PRINT 
640 PRINT 'NON, ';NAM${', GIVE THE':PR 
INT 'CDRRESP0NDIN6 'jlti': '; 
645 INPUT AA»:PRINT ;PRINT 
650 IF AA*>:Qt THEN 680 

655 IF COl AND C03 THEN 665 

656 IF Z 1)2 THEN 662 

If first three characters are correct, 
try re-spelling. 

660 IF AA«(1,3)>Q«(1,3) THEN PRINT 'MI 
SSPELLED...TRY A8AIN':Z1«ZIH:60T0 645 
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Mrong insMcr; print appropriate 
response and correct ansMer. 

bW nm "FORGET IT. . . ." 
A63 Zl=0 

470 IF NR<2 THEN PRINT "URONB. OK THI 

S TINE, 'iNAHl 

672 IF KR>1 AND tlR<5 THEN PRINT "NR0N6 

--THINK fl LITTLE HARDER, 'jNAN* 

674 IF HR>4 AND HR<10 THEN PRINT 'NRON 

S ASAIN. YOU'RE TRYIN6 Ny':PRINT "PAT 

lENCE, ';NAH» 

676 IF NR>9 THEN PRINT 'STUPID! INBEC 

ILEI NORON! IDIOT! ■;PRINT "YOU'RE NR 

ONB, "{NAN* 

678 PRINT :PRINT "RIGHT ANSNER: ";Q»i6 

OTO 690 

Right ansNer; print encouraging 
response. 

6B0 PRINT :Rl=INT(RND(l)t3+l)!0N Rl BO 

TO 682,684,686 

682 PRINT "8000 SH0N":80T0 690 

684 PRINT "EXCELLENT" iBOTO 690 

686 PRINT "JOLLY 600D" 

690 FOR KI=1 TO SOOsNEXT KI:Z1=0 

695 NEXT i 

End of drill. Print the results and 
offer another drill. 

700 PRINT CL«:P=INT(<(Q-NR)/Q)I100) 
710 PRINT iPRINT NAH<l', VOU DID 'jQ-N 
Ri" CORRECTLY": PRINT "OUT OF ";fl 
720 PRINT iPRINT "THAT'S "|Pi" PERCENT 

RI6HT":PRINT iPRINT 
730 IF P>B9 THEN PRINT "FINE JOB~YOU' 
VE STUDIED ENDUBH' 
740 IF P<60 THEN PRINT "BY YOUR SCORE, 

THIS MUST BE YOUR"!PRINT "FIRST TINE 
AROUND FOR THIS CLASS." 
750 PRINT :PRINT iPRINT "ANOTHER ROUND 
? (Y/N) "jilNPUT X«:IF X$(1,1)="N" THE 
N END 
760 RUN 

Data for eleients. 

1010 DATA H,HYDR06EN,HE,HELIUN,LI,LITH 
IUH,BE,BERYLLIUN,B,BORON,C,CARBON,N,NI 
TR06EN,D,0XYBEN 

1014 DATA F,FLUORINE,NE,NEON,NA,S0DIUI1 
,H6,HABNESIUH,AL,ALUHINUH,SI,SILIC0N,P 
, PHOSPHORUS, S.SULFUR 
IDIS DATA CL,CHLORINE,AR,AR60N,K,POTAS 
SIUH,CA,CALCIUH,SC,SCANDIUN,TI,TITANIU 
N,V,VANADIUN,CR,CHROHIUH 
1022 DATA NN,NAN6ANESE,FE,IR0N,C0,C0BA 
LT,N1,H1CKEL,CU,C0PPER,2N,Z1NC,AS,ARSE 
HlC,BR,BROMINE 

1026 DATA »!R,KRYPTON,RB,RUBIDIUH,SR,ST 
R0NTIUN,N0,H0LYBDENUI1,A6,SILV£R,CD,CAD 
NIUH,SN,TIN,SB,ANTINONY 



1030 DATA I, IODINE, CS,CESIUN,BA,BARIUN 
,H,TUNS5TEN,PT,PLATINUN,AU,B0LD,HB,HER 
CURY,PB,LEAD,BI,BISHUTH,U,URANIUH 

Data for radicals. 

1100 DATA ACETATE,C2H302-1,AI1HONIUN,NH 

4+1, BICARBONATE, HCD3-1,BISULFATE, HS04- 

t,BISULFITE,HS03-l 

1120 DATA HYPOCHL0RITE,CLO-l, CHLORITE, 

CL02-1 , CHLORATE , CL03- 1 , PERCHLORATE , CLO 

4-1 

1140 DATA PERNAN8ANATE,NN04-1, NITRATE, 

ND3-1,HYDRDX IDE, OH-1, NITRITE, N02-1,CYA 

NlDE,CN-l,CARB0NATE,C03-2 

1160 DATA SULFITE,S03-2, SULFATE, S04-2, 

HANGANATE , NN04-2 , OXALATE , C2D4-2, CHROHA 

TE,CR04-2,DICHROHATE,CR207-2 

1180 DATA PHOSPHATE, P04-3, ARSENATE, ASD 

4-3,CUPR0US,CUil,CUPRIC,CU+2,FERR0US,F 

E+2,FERRIC,FE+3,STANN0US,SN+2 

1210 DATA STANNIC, SNH,PLUNB0US,PBi2,P 

LUH6IC, PBM, NERCUROUS, H62+2, MERCURIC, H 

6*2 

Data for oxidation states. 

1300 DATA BE,+2,LI,M,ZN,+2,A6,+1,H,+1 

,NA,il,K,M 

1320 DATA HG,+2,CA,+2,BA,+2,AL,+3,0,-2 

,S,-2,BR,-1,I,-1,CL,-1,F,-1 

Data for solubility rules. 

1400 DATA 1,ALL NA NH4M AND K CONPO 

UNDS ARE SOLUBLE 

1402 DATA 2,ALL NITRATES ACETATES AN 

D CHLORATES ARE SOLUBLE 

1404 DATA 3,ALL HALIDES ARE SOLUBLE EX 

CEPT AG HG PB 

1406 DATA 4, ALL SULFATES ARE SOLUBLE E 

XCEPT BA CA SR RA PB 

1408 DATA 5,ALL OXIDES ARE INSOLUBLE E 

XCEPT RULE lAND GROUP II (BE N8 SR 

BA RA CA) NHICH MILL REACT 

1410 DATA 6,ALL HYDROXIDES AND SULFIDE 

S ARE INSOLUBLE EXCEPT RULE I AN 

D GROUP II (2A ON TABLE) 

1412 DATA 7, EVERYTHING NOT MENTIONED A 

BOVE IS INSOLUBLE ' ^ 




K-Byters 

ANOTHER 

PROGRAMMING 

CHALLENGE 



Last summer SoftSide began in- 
viting its readers to submit "One 
Liners" — self-contained, single-line 
programs for the S-80, Apple, or 
Atari which would provide a con- 
tinuously changing graphics display. 
The response has been excellent, and 
we're still looking for more submis- 
sions. 

Now we have a new challenge for 
you as well: "K-Byters". A K-Byter 
is a BASIC program which fits into 
IK (1024) bytes of program memory. 
There aren't any restrictions on the 
nature of the program, other than its 
size. It can be a graphics display, a 
game, a mini-adventure, or anything 
your imagination and programming 
skills can create. 

Note that the program does not 
have to RUN in IK of memory; it can 
use as much RAM for arrays, strings, 
graphics mapping, etc., as you need. 
We'd prefer that it be able to run in a 
16K system, but this is not an ab- 
solute Hmit. 

Here, then, are the official rules: 

1 . The program must be written for 
the Apple, S-80, or Atari, entirely in 
BASIC (although it may create and 
call Machine Language routines). 

2. The program must occupy no 
more than 1024 bytes of memory 
before running. 

3. The program must be submitted 
on tape or disk, accompanied by your 
name, address, phone number, and a 
brief written description of its opera- 
tion. 

4. The tape or disk will be returned 
only if accompanied by a self- 
addressed envelope with adequate 
postage AFFIXED (do not send 
money). 

5. Winners will have their pro- 
grams published in SoftSide and will 
receive certificates extolling their vir- 
tues as programming wizards, for all 
the world to see! 



Send submissions to: 

K-Byters, c/o SoftSide 

6 South Street 
Milford, NH 03055 



© 
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Code Master 



by Andrew Braunstein 

Atari translation' by Rich Bouchard 

"Code Master" is an S-80 and 
Atari game program requiring 16K 
RAM. 

So, you've always been lucky and 
have easily been able to win at com- 
puter games? Well, in "Code 
Master" your luck just ran out. This 
is a game of skill and deduction, 
which is only for the sharp of mind 
and the courageous of heart. If you 
can't take losing a game, then maybe 
you'd better not take the trouble to 
type this one in, because you may not 
feel the thrill of victory too often. 

Your object in the game is to guess 
a randomly-generated five character 
string in ten guesses or less. After 



each guess, information as to how 
many characters are correct and how 
many characters are in the right se- 
quence is displayed. The difference 
between "Code Master" and your 
average computer game, is that to 
win, you'll have to use more logic 
than luck. 

VARIABLES 

C$(l) - C$(5): Player's guess for 
each of the five letters. 
D$: Possible letter choices. 
Q$, L$(l), L$(2): Correct code. 
PL: Current location of cursor. 
RL: Number of right letters. 
RS: Number of letters in the right 
sequence. 



T: Turn number. 
LI, P: Which of the five letters is 
being guessed. 

VI: Flag variable (is player current- 
ly changing guess 1-yes, 0-no). 
AN$: Player's last guess. 
F8: Flag for whether player wants 
instructions. 

V$: Used to print the "CODE 
MASTER" string. 
Y: Screen print position variable. 
Z: Variable for response to new 
game question. 

Zl$: Player's most recent guess. 
X, R, P, F, I, A, N, M: 

Miscellaneous loops and time 
delays. 



S-80 VERSION 

Print title page and print instructions if requested. 

1 CLS:PRINT CHR«(23):PRINT:PRINT!PRINT TAB(5)"C ODE NASI 
E REPRINT TAB(9) "VERSION 1.34":PRINT"(C1 1981 BY ANDREH S. BRAU 
NSTEIN":FOR Z=l TOlOOOsNEXTZ 

2 V$="«««<« CODE HASTER »»»»»"!PRINT;PRINT:PRINT"INSTRU 
CrrONS? (Y/N)'; 

3 E»=INKEY»! IFE»=" •THEN3EtSEIFE$<>"Y"THENFS=l :60T07 

^ CLS:PRINTV$;V»:PRINTTAB(25)'INSTRUCTI0NS":PRINT' THIS GAHE 
S TESTS YOUR SKILLS OF DEDUCTION. YOU HAVE TEN'iPRINT'CHANCES T 
GUESS THE FIVE LETTER CODE GENERATED BY THE C0I1PUTER."|!PRINT" 
YOU ARE TO ENTER THE VARIOUS LETTERS THAT ARE CONTAINED" i 

5 PRINT" IN THE NORD (CHOICES: A,B,C,D,E,F,G,H). THE COMPUTER H 
ILL TELL YOU HON":PRINT"NANY LETTERS ARE RIGHT (RL) AND HOH NANY 

ARE IN THE RIGHT"! PRINT'SEBUENCE (RS). IF YOU HAKE A MISTAKE TY 
PING IN THE NORD, YOU":PRINT"liILL BE ABLE TO FIX IT AFTER YOU"; 

6 PRINT" ENTER ALL FIVE LETTERS. ": PRINT: PRINTTAB( 17) "PRESS <ENT 
ER> TO START 6ABE":PRINT3896,V»iV$| 

Print the apening display. 

7 J$=INKEY$: IFJ$=""ANDF8<>lTHEN7ELSECLS:F0RX=lT05:PRINTCHRt(23) ; 
V$i:F0RR=lT0150:NEXTR,X:F8=0 

B PRINT:PRINTTAB(10)'RS = RIGHT SEBUENCE":F0RR=1T0175:NEXT 

9 PRINT:PRINTTAB(10)"RL = RIGHT LETTER":PRINT:FORR=1T0175:NEXT 

10 FORX=1T05:PRINTV»;!FORR=1T0150!NEXTR,X!FORX=1T0750:NEXT:CLEAR 
]00:DINC$(10),L$(10)iCLS 

Initialize the variables and construct a randoi code Mord. 

11 Dt="ABCDEFGH" 

12 F0RI=1T05:Y=RND(8);B»=Q*+HID$(D$,Y,1):NEXTI:L»(1)=(!*!L»(2)=Q» 
:G0T014 

Subroutine to poke in graphics lines on the screen. 

13 F0RF=YT0Y+63:P0KEF,X!NEXT:RETURN 
Draw the gaie display. 



14 Y=15360:X=131:G0SUB13;F0RY=1536OT01612BSTEP64:P0KEY,191:P0KEY 
+45,19l!P0KEY+63,19l!NEXT:Y=16192:X=13l!G0SUB13:F0RX=15489T01553 
2!P0KEX,131:NEXT:F0RX=I6320T016383!P0KEX,179!NEXT:F0RY=15513T01A 
153STEP64:P0KEY,19l!P0KEY+9,191:NEXT 

15 PRINTS113,"C"!:PR1NT3179,"0";!PRINT8245,"D";!PRINTJ311,"E";:P 
RINT8369,"H";:PRINT3435,"A"j:PRINT3501,"S";:PRINT8567,"T"i:PRINT 
3633,"E"i:PRINT3699,"R"i 

16 PRIRTS752, 'CHOICES: "j : PRINT3818, Dt; 

17 PRINTS67,'l 2 3 4 5 RL ' RS";:PL=195:T=1 

Get the player's input. 

18 PRINT3PL,"TRY r;HID»(STR$(T),2);!B$=L$(2);RS=0:RL=0:F0RP=lT0 
5:Ct(P)=" ":PRINT3896, "LETTER IN POSITION'iP;"? "; 

19 M$=" ■:n»=INKEY»!lFH»=""ORN$=" "THEN19ELSE1FASC(H$)=13THEN19E 
LSEC«(P)=N»!PRINT3924,H$;:PRINT3PL,C«(P);;PRINT8PL+1," TRY I'iH 
ID$ (STR$ (T) , 2) i : PL=PL+3: MEXTP: PRINT3PL-2, " " ; : PRINT8PL+1 
7," TRY f";NID»(STR$(T),2)|!PL=PL+49 

20 GOSUB3B:IFV1=1THEN40ELSEV1=0 

Check to see if player has guessed any letters in the proper 
sequence. 



21 AN$='":F0RLl=lT05:AN»=ANt+C$(Ll):IFNID»{B»,Ll,l)=C$(Ll)THEN22 
ELSEG0TO24 

22 B»=LEFT$(Q$,Ll-l)+'l"+HIDt(B$,Ll+l):RS=RS+l:RL=RL+l 

23 C»(L1)=" " 

24 NEXTL1:G0TD30 



Player has Non! 

25 V$="««<«« CODE NASTER »»»»»":F0RX=1T01500:NEXT:CLS:P 
RINTCHRt(23)iV$;V$|V$;V» 

26 PRINT8320, "TRIES"; :PRINT8366, "SEBUENCE"; 

27 PRINT8384,Ti!PRINT3432,L«(l);:PRINT3576,V$|V$jV»;Vi; 

28 FORA=1T010:PRINT3472," ";:F0RX=1T0275:NEXT!PR1NT3472,"Y 
OU NON'i!FORX=lT0275:NEXTX,A 

29 PRINT3B96, "PRESS ENTER TO C0NT1NUE";:1NPUTZ:F8=1:G0T07 
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Check to see if player has guessed any of the right letters. 

30 F0RN=lT05iF0RH=lT05:IFHID$(Q$,N,l)=C$(«)THEN37 

31 NEXTN, N: PRINT3PL-40, RL| RSj : IFRS=5THEN25 

32 IFT=10THEN33ELSET=T+1:G0T01B 

Player has lost. 



33 F0R00=1T01500:NEXT 

34 V»='<«««« CLUE HflSTER »»»»»":CLS;PRINTCHR»(23)iV$|V» 
; V$i VJ: PRINT8320, "LAST GUESS" | : PRINT33i4, ■=SEQUENCE=' | :PRINT83fl6 
,AN$;!PRINT9432,L$(1)! 

35 PRINTJ576,V$iV$iV»;V$i!FDRX=lT010:PRINTJ472," "|:FnRT= 
lT0100:NEn:PRINTS472,'YOU LOST';:FDRT=1T0100:NEXTT,)1 

36 PRINTJB96, "PRESS ENTER TO C0NTINUE"i:INPUT2:FB=l:B0T07 



Update the nuiber of correct letters. 

37 Q»=LEFT»(fl»,N-ll+"l"+MID$(Q»,N+l):C$(H)=" "!RL=RL+l!G0T031 

Subroutine for processing a change in the player's input. 

3B Z1»="":PRINT3894,'D0 YOU WANT TO CHANGE THEN (y/N)?"!:GDSUB41 
:IFZ1$="Y"THEN39ELSERETURH 

39 PRINTSB96,'TYPE IN AS USUAL"i!Vl=liFORX=lT0500:NEXTX:PL=PL-6A 
:PRINTJPL,STRING$(21,32);;PRINTJPL+24,STRING»(6,32)i:PRINTaPL+32 
,STRING$(9,32)j:G0T0I8 

40 V1=0: RETURN 

Subroutine to get a character froi the keyboard. 

41 Z1»=INKEY$:IFZ1$=""THEN41ELSEPRINTJB96,STRING«(63,32)|:RETURN 



ATARI VERSION 

Additional Variables 

A$: A control down arrow 

character used to position cursor. 

C$: Holds the player's guess for 

each of the five letters. 

L$ (1,5), L$ (6,10), Q$: Correct 

code. 

M, V: Loop variables for sound 

routines. 

ME$: Message to be displayed at 

game's end. 

PL: Turn number, also used to 

position cursor by offsetting PL 

lines from the start of the board 

display. 

Underlined characters in the Atari 
listing should be typed in inverse 
video by using the Atari logo key. 



Diiension string variables, and 
prepare keyboard for use as an input 
device to alloH single characters to 
be input froi the keyboard. 

3 DIH V((40),DI(8),0((S),L«(10),At(l), 

C$(S),AN<(5),nEt(10) 

5 OPEN 11,4,0,'Ki' 

Create beginning display. Line 10 
specifies graphics lode 2 nithout a 
text HindOH. Different types of 
letters are used in lines 20-50 
(lowercase, inverse viedo) to 
produce different colors on the 
graphic screen. 



10 6RAPHICS 2M& 

12 V««"«««< CODE 

13 AI>CHR«(29) 

IS SETCOLOR A, 1,14 



Hfl STER 



20 PRINT I4:PRINT 16)' CODE HftSTER 

i 

30 PRINT liiPRINT i&) ' original program 
by:"| 

35 PRINT I6)'ANDREM S. BRftUNSTEIN' 
40 PRINT I6i' atari version by; ' 
50 PRINT I6|' RICH BOUCHARD' 
60 FOR N>0 TO 127 

M SOUND 0,N,10,10:SOUND l,Nt2,10,10iS 
DUND 2,255-N,10,10iSOUND 3,255-(Nt2),l 
0,10 

68 NEXT H 

70 PRINT I6i PRINT 16)' INSTRUCTIONS (Y 
/N)"! 

Get the player's response to 
INSTRUCTIONS (Y/N) question, shut 
off the sound, and then deteriine 
Hhether instructions are desired. 



80 BET 11, E 

85 60SUB 1100 

90 IF CHR»(E)<>'Y" THEN F8=liG0T0 280 

Print out the full instructions. In 
line 100, the POKE 752,1 is used to 
shut off the cursor. 

100 GRAPHICS 0:POKE 752,1 

110 PRINT iPRINT iPRINT V«|V« 

120 PRINT 1 PRINT * INSTRUCT 

lONS'iPRINT 

130 PRINT " THIS SANE TESTS YOUR 

SKILL OF') 
140 PRINT 'DEDUCTION. YOU HAVE TEN 
CHANCES TO') 

150 PRINT 'BUESS THE FIVE LETTER COD 
E 6ENERATED') 

l&O PRINT "BY THE COMPUTER. YOU AR 
E TO ENTER') 

170 PRINT 'THE VARIOUS LETTERS THAT AR 
E CONTAINED') 

180 PRINT 'IN THE HORD (CHOICES A,B,C, 
D,E,F,B,H).') 



190 PRINT 'THE COMPUTER KILL TELL YO 

U HON MANY') 

200 PRINT 'LETTERS ARE RIGHT (RL) AN 

D HON NANY') 

210 PRINT 'ARE IN THE RIGHT SEQUENCE 

(RS). IF') 
220 PRINT 'YOU HAKE A MISTAKE TYPIN8 A 

HORD, YOU') 
230 PRINT 'MILL BE ABLE TO FIX IT AFTE 
R YOU ENTER') 

240 PRINT 'ALL FIVE LETTERS. 'iPRINT 
250 PRINT 'PRESS RETURN TO START SAME' 
260 SET ll,E:IF E0155 THEN 260 

Start sole iiportant strings froi 
scratch, and print out the brief 
explanation of RS and RL. Note the 
use of the voluie control on the 
Atari SOUND coiiand in lines 305, 
315 and 355, 

280 GRAPHICS OsPOKE 752,1 

283 ? !? !? ;? 

285 B$»"iL$»";C»»" 

290 FOR M TO 5 

300 PRINT VI) 

305 SOUND 0,200, 2, Xt2 

310 FOR R=l TO ISOiNEXT RiNEXT X 

315 SOUND 0,200,2,12 

320 PRINT iPRIHT ' RS ' RIGHT 

SEQUENCE';FOR R=l TO i7SiNEXT R 

330 PRINT 1 PRINT ' RL = RIGHT 

LETTER'sPRINT :FOR R=l TO 175:NEXT R 

340 FOR M TO 5 

350 PRINT V() 

355 SOUND 0,200,2, (6-X)t2 

360 FOR R>1 TO ISOtNEXT RiNEXT X 

370 FOR X^-l TO 750: NEXT X 

375 SOUND 0,0,0,0 

Initialize Dt to contain the 
possible letter choices, and 
randoily deteriine a code Hord. 

continued on next page 
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continued from previous page 
380 8RAPHICS OiPOKE 752,1 
390 D«»'ABCDEF6H" 
400 FOR 1=1 TO 5 
410 Y'INT(RND(0)«8+U 
420 at(LEN(Qt)«t)=>D«(Y,Y) 
430 NEXT I 
440 L(=B$iL«(LEN(L$)M)=fl* 

Set up gaie display. The displiy is 
done in the nonal text lode of the 
Atari (graphics 0) using the Atari's 
character graphics. 

470 FOR F=2 TO 38 

480 POSITION F,18:PR1NT CHR«(i49))!P05 

ITION F,19iPRINT CHR«(21); 

482 POSITION F,16)PRINT CHR<(149)|iP0S 

ITION F,OiPRINT CHR(I160)| 

484 IF F<*29 THEN POSITION F,2!PRINT C 

HR$(UO);tPOSITION F,15iPRINT CHR«(1&0 

1) 

490 NEXT F 

500 FOR F«2 TO 15 

510 POalTION 2,FiPRINT CHR$(160);iP0SI 

TION 29,F!PRINT CHR$(160)|lPOSITION 38 

(FiPRINT CHR«(160)| 

520 IF F>2 THEN POSITION 21,FiPRINT CH 

Rttl&O)) 

530 NEXT F 

540 POSITION 29,ltPRINT CHRKliO);" 

'(CHR«(l&0)i 
550 POSITION 32,2iPRINT "C-jAlj-O'lA*! 
T!A$)"E") 

560 POSITION 31,iiPRINT "H'lAlj'A'jAI; 
'S'(A»i"T'iA«)"E"!A»)'R"i'" 
570 POSITION 30,14iPRIHT ' CHOICES; 'i 
580 POSITION 30,15:PRINT 'ABCDEFBH') 

585 POSITION 30,13iPRINT ' 'i 

590 POSITION 5,l!PRINT "12 3 4 5 
RL RS') 

Set up SDie final variables to 
prepare the gate, including 
initializing RS and RL. 



595 PL«1 

&20 0(=L«(&,10) 



430 C»=" 



■iRS^OjRL'O 



Get player's guesses, placing thei 
into Ct. Sound is used to verify 
keystrokes and eiphasize incorrect 
keys. 

640 FDR P'l TO 5 

445 POSITION Pt3,3+PLiPRINT 'TRYfiPLi 
650 POSITION 3,17!PRINT "LETTER IN POS 
ITION "jPj"? ■) 
440 6ET IliNiSOUND 0,30,10,10 
445 IF CHRONICA" OR CHR»(H)>'H" THEN 
SOUND 0,200, 10, 10) FOR M TO 10;NEXT 
N.'SOUND 0,0,0,Oi80TD 440 
470 C»(P,P)»CHR«(H) SPRINT CHR«(N)| 
472 SOUND 0,0,0,0 



480 POSITION P»3,J+PLiPRIHT " ")CHR«( 
Nil" ■) 
490 NEXT P 

AUoM player to change his/her 
guesses if desired. 

700 POSITION 3,17iPRINT "DO YOU MISH T 

CHAN6E THEN (Y/N)'| 

710 60SUB 1000 

720 IF CHR$(21)<>"Y" THEN 730 

722 POSITION 3,17iPRINT "TYPE IN AS US 

UAL'llVlnl 

724 FOR t=l TO 500iNEXT X 
724 60T0 420 

Plays a randoi sound, using all four 
voices, to shoH that the coiputer is 
analyzing player's guess. 

730 FOR V«0 TO 3iS0UND V,RND(0)t255,IN 
T(RND(0)t4M)t2,INT(RND(0)t4+l)l2iNEXT 
V 



Deteriine hoM lany letters are in 
proper sequence. Then skips the 
win/lose routine by juiping to line 
900. 

735 ANI'CdFQR Lli:l TO 5 

740 FOR Ll«l TOSjIF 0«(L1,L1)<>C$IL1, 

LI) THEN 770 

750 B»(Ll,Ll)s"rsRS»RStliRL»RL+l 

740 C«(L1,L1)«" " 

770 NEXT LhSOTO 900 



That part of the Min/lose routine 
routine that is unique to the win 
section. Sets up the unique part of 
the display, and sets the lessage in 
HE* to "YOU HON", 

790 FOR OO-'I TO 500iNEXT 00 
795 6RAPHICS OiPOKE 752,1 
800 PRINT iPRINT iPRINT Vt|Vt|Vt|V« 
810 POSITION 10,9!PRINT "TRIES 
SEBUENCE" 

820 POSITION 12,10iPRINT PL)" 
■;L*(1,5) 



Hin/Lose routine. Flashes the 
lessage in H£$ for a while, then 
alloMS another gaie to bi started. 

822 NE««"YOy_JOH" 

825 POSITION 2,14iPRINT V«|V«)Vt;V«| 

830 FOR A>1 TO 5 

840 POSITION lS,lliPRINT ' '| 

850 FOR N«l TO 30iS0UND 0,N,8,10iNEXT 

N 

860 POSITION 15,lliPRINT NEt) 

870 FOR H>30 TO 1 STEP -liSOUND 0,N,8, 

lOtNEXT HiNEXT A 



880 POSITION 3,20tPRINT "PRESS RETURN 

TO CONTINUE"! 

885 SOUND 0,18,2,10 

890 SET tl,Z)SOUND 0,0,0,OiIF Z015S T 

HEN 890 

895 6DT0 280 

Deteriine how lany letters are 
correct (RL). 

900 FOR N>t TO 5) FOR N-1 TO 5 

910 IF Bt(N,N)»CI(N,H) THEN B((N,N)>"I 

"iC«(H,M)«" ':RL«RLM 

920 NEXT Hi NEXT N 

925 SOSUB 1100 



Displays the player's score for the 
current guess. 

930 POSITION 23,PL+3iPRINT RL|" "(RS 

Deteriines if player has mn by 
guessing all five letters in the 
proper sequence (RS=5). 

940 IF RS«5 THEN 790 

Checks if ten turns have been 
played. If not, continue. 

950 IF PLOIO THEN PL'PLMsSOTO 620 

Lose routine. Prints that part of 
the disply unique to the lose 
routine, defines the lessage in KEt 

to be displayed, and juips to the 
•tin/lose routine at 825. 

960 FOR OO'l TO 1000:NEXT 00 
962 6RAPHICS OiPDKE 752,1 
965 PRINT iPRINT (PRINT Vt|V«|Vt|Vt 
970 POSITION 6,9iPRINT 'LAST 6UESS 

<SEBUENCE>'| 
975 POSITION 8,10:PRINT AN()' 

")L«(1,5)) 
980 HE»-" YQU LOSE ' 
985 80T0 825 

Subroutine to get a character, and 
clear the lessege display line of 
the board. 

1000 6ET 11,21 

1010 POSITION 3,17iPRINT ' 

■l 

1020 RETURN 

Subroutine to silence all four sound 
voices of the Atari. 

1100 FOR N>0 TO 3IS0UND N,0,0,OiNEXT N 
■RETURN 
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At HAYDEN,The Best Has Gotten Better. 

Sargon, the program that came in first in the Creative Computing 
l\/licrocomputer Chess Tournament, has become Sargon 11. The game 
has been vastly improved and now has a faster response time. A new 
Level has been incorporated for beginners. The board is easier to 
pre-set and there is now a Hint mode that provides suggestions from 
the computer. Sargon II took on the maxi-computers in the West 
Coast tournament and finished in the money! Shows more thinking 
power than you ever expected. 

SARGON II SPECIAL! 20% OFF 

Special 

Sargon II 16K Level II Cassette $29.95 (S-80) $23.95 

Sargon II 24K Cassette Machine Language $29.95 (Apple) $23.95 

Sargon II 32K Disk $34.95 (S-80) $28.95 

Sargon II 48K Disk Machine Language $34.95 (Apple) $28.95 

> — ^^ Offer ends August 15 



\or\s 
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Go Public With Your Computer 



by Harland Hill 



Microcomputers are almost as ad- 
dictive as fun, and microcomputer 
fans tend to be personality types with 
a special kind of dedication, similar, 
so the psychologists tell us, to that re- 
quired of professional athletes. And, 
if the type carries through, such fans 
will also be family persons, interested 
in church or civic groups, wide open 
to new ideas, and responsive to 
logical challenge. 

With all these traits in common, 
will you get the razzberry when you 
offer to share your private hobby 
with your favorite group? Nope. Not 
if you take along a shopping list that 
offers entertainment and new exper- 
tise plus ready-made solutions to the 
group's needs, publicity problems, 
and image woes. Do it right and your 
own problem will be overwork. 

Small groups are still the great 
American phenomenon — clubs, 
study groups, coffee klatches, etc. 
And your small computer with its 
TV-type screen sells itself because it's 
so, well, charismatic. Your friends 
are sure to be on the make for ways, 
preferably ready-made, to expand 
their group's usefulness and public 
appeal as well as to broaden their 
own horizons. 

My school teacher wife carries our 
S-80 to her special ed classroom in a 
simple aluminum case. The CRT sits 
on small brackets above the slide-out 
keyboard. When she removes the 
cover and plugs it in, it's as ready to 
go as the kids. My pastor likes it, too 

— can't keep his hands off it, in fact 

— and calls on it for youth parties, 
for announcements in the church 
vestibule, and even as a church and 
program promoter in the sanctuary. 
(Left it on during the sermon one 
Sunday and lost half his listeners.) 
Yet my micro is minimal — level II, 
16K, Model I — but it's both popular 
and effective. 

That's the good news. The bad 
news is that the shopping list may 
mean a little work — adapting games 
to fit your group, setting up good 
graphics displays, inventing slogans, 
quotes, and gimmicks to personalize 
your effort, and naturally, debug- 
ging. Stuff you're already into. 

Newcomers to computers like visi- 
ble action so show them games with 
good graphics and quick responses. 
SoftSide recently published two good 
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ones, "Mini Golf" and "Barney", 
both of which have people clamoring 
for their turns around here. Oh yes, 
and don't lecture or at least not 
much. 

Better include a moving message 
program like Radio Shack's "Mar- 
quee" so that the doubters get a con- 
vincing look at a "practical" kind of 
display that holds interest. If you 
don't have that or one like it, try the 
following S-80 one liner which is 
compressed and adapted from one of 
George Blank's games: 
100 CLEAR 256: CLS: PRINT 
CHR$(23): A$ = " (Put any an- 
nouncement here up to 130 letters) ": 
A$ = STRINGS$(32,32) + A$-h" ": 
FORB = lTOLEN(A$): 
PRINT@448,MID$(A$,B,30): 
FORC=1T050: NEXT: NEXT: 
GOTO 100 

This simple gizmo may be better for 
small room display than one of the 
more expensive Machine Language 
programs and it's more adaptable. 

Draw a picture of your club or 
church by holding a video display 
work sheet against a large photo held 
against a window, penciling in just 
the main lines and features. Then 
adapt your graphics to those lines. I 
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was surprised to discover that folks 
seem to prefer seeing their very own 
building drawn and redrawn slowly 
(using set and reset) rather than by 
the faster methods. Smiley faces that 
wink and roll their eyes are appeal- 
ing, too. So are good quotes which 
are centered phrase by phrase, but be 
sure to allow enough time to read 
them easily. 

Any kind of instruction is more in- 
teresting — and more effectively 
taught — if you and the teacher can 
adapt one of the good teaching pro- 
grams already in public domain. 
Make it self-grading and use a few 
wisecracks to correct wrong answers 
Kibitzers will be learning while 
they're cracking up so don't insist on 
too much privacy. Sunday school 
classes are ideal for computer-aided 
memorizing, factual learning, and 
moral simulations. Don't spare the 
graphics just because the material is 
factual and keep the variety flowing 
in your comments and pictures. 

If you're lucky enough to have a 
printer, your club secretary needs it 
for the mailing list, dues, club infor- 
mation, and news releases. Lacking a 
printer, however, a midwest record- 
ing technician calls his pastor each 
morning to save the busy man the 
chore of looking up birthdays, an- 
niversaries, and special events. The 
computerist keeps the material up- 
dated and available as his contribu- 
tion to the church's outreach. 
Another pastor has his income tax 
done hassle- free on a member's tax 
program, checking it out each 
quarter. Church or club finances and 
budgets are computer fare, as well. 

If the current educational literature 
is accurate, less than a majority of 
the nation's schools offer adequate 
computer instruction. It will do your 
club's image no harm at all if it's the 
first one on the block to offer a 
hands-on instruction course in 
BASIC. This is not hard to do if you 
follow one of the good teaching 
outlines that are easily found. Using 
your own computer for this won't 
harm it and your generosity may well 
give you that favorable, not to men- 
tion glamorous, image you've been 
seeking all your life. One guarantee: 
The course will be popular at all age 
levels and with both sexes. 

Most clubs or churches have a 

store or shop owner with a display 

window on street level. They'll want 

continued on page 91 



Solution to Word-Search Puzzle #3 
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and other 
undesirables 

A slight error in lines 5110 and 
5140 of "Math Decathlon", Part 3 
(May, 1981) will sometimes yield an 
incorrect Lowest Common 
Denominator. The lines should be 
corrected to read: 

5U0 FOR I = INT(D/2) TO 2 STEP -h IF INK 
I/ft) = I/ft AND INT(I/B) = I/B AND INTd/CI 
= I/C THEN LCD=I 

5H0 FOR I = INT(D/2) TO 2 STEP -1; IF INT( 
I/fl) = I/ft AND INT(I/B) = I/B THEN LCD = I 



A bug in "Battle at Sea" (April, 
1981) will sometime cause a wiped- 
out player to be re-included in the 
combat. The following revision will 
correct the problem: 

280 FOR I = TO DEftB-h IF OUT(I) < > P 

THEN 290 

282 P = P+l! IF P>NP THEN P=l 

284 GOTO 280 



There is a problem with the 
Machine Language Loader program 
used in "Divide and Conquer". The 
routine it uses contains an instruction 
that runs OK under DOS, but causes 
havoc with LEVEL II BASIC. Line 
50320 should read: 

50320 DATft 50,-3,42,50,50,-1,0,225,201,300 



The Atari One Liner published on 
page 35 of the May issue which was 
credited to Dave Field of Bangor, 
ME, was actually by Andrew Field of 
Bangor, ME. 



Data Base continues... There is a 
problem in the S-80 version that 
affects the multi-level search feature. 
Line number 8160 should read: 

8140 PRINTS832,"1) ITEM MUST HEET ftLL CONDI 
TIONS"! INPUT'S) ITEM MftV HEET ANY CONDITION 
"|BS!lFBS<10R BS>2THENS160 

In addition, here is an improve- 
ment. Change line 8390 to read: 

8390 IFBS=2 THEN POKE SC,Sl!PQKE SCtl,S2!PR 
INT896, 'THAT'S ALL"iGOSUB60000 

This keeps "THAT'S ALL" from 
being printed out after the listing. 
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Kidnapp ed 



Original S-80 version by Peter 
Kirsch. Apple translation by Carl 
Mueller (translation contest winner). 
Atari translation by Rich Bouchard 
and Alan Zett. 

The Apple version of "Kidnap- 
ped" requires Applesoft and 24K. 
The Atari version requires 32K. 

The original S-80 version of this 
nine-in-one adventure was published 
in last December's issue of SoftSide. 

Nine-in-one? Well, judge for 
yourself. You begin this adventure on 
the ninth floor of a strange building, 
the victim of a kidnapping. Floor by 
floor, you must find your way to 
freedom, past the kidnapper who sits 
somewhere counting his ransom 
money. Traps await you every- 
where, and your life is constantly in 
danger. 

Each floor's adventure is 
independent of the others; you can- 
not carry items from one to another. 
Everything you need to escape from a 
given floor can be found there — if 
you can just figure out where to look. 

As in other adventures, one or two 
word commands are used to com- 
municate with the computer, such as 
GET AX, DROP AX, or OPEN 



5 TEXT ! GOTO 200 
Rooi descriptions. 

10 ON fl SOTO 11,12,13,14,15,16,1 

7,18,19,20,21,22,23,24,25,24 
,27,28,29,30,31,32,33,34,35, 
36,37,38,39,40,41,42,43,44,4 
5,46,47,48,49,50,51,52,53,54 
,55,56,57,58.59,60,61,62,63, 
64,65,66,67,68,69,70,71,72,7 
3,74,75,6000 

11 PRINT J«!H = 4!N = 2!E = 8:3 = 

7: GOTO 350 

12 PRINT NisN = 3:5 = 1: GOTO 35 



13 PRINT "IN A CLOSET. "iS = 2: GOTO 

350 

14 PRINT J$iN = SiE = hS = 6: GOTO 

350 

15 PRINT N«!S = 4: GOTO 350 

16 PRINT 'IN A RESTROON.'jN = 4: 

GOTO 350 

17 PRINT N»!N = 1: GOTO 350 

18 PRINT J«!H = l!N = 9:5 = 10; GOTO 

350 



DOOR. To move in particular direc- 
tion, simply enter the initial letter of 
that direction: N, S, E, W, U, D. 
Entering LOOK will refresh your 
memory about your environment, 
and entering INVENTORY or just I 
will give you a tally of everything 
you're carrying. 

VARIABLES 

A: Current player location. 

A (X): Item location (room 

number). 

A$: Player input command. 

A$ (X): Temporary storage of 

items. 

B, G, K, Kl, K2, K4, V: Loop 
counters. 

B (X): Holds room numbers accessi- 
ble from current locations. 
B$ (X): Commands. 
BO: Balloon status (0 = deflated, 
1 = inflated, 2 = tied to string). 
BR: Book read? 
C$ (X): Items carried by player. 

C, CF, CT, G, KY: Message flags 
(if 0, respective message appears). 
CI, EF, JK, Rl, SD, SP, UM: Item 



flags (0 = natural state, 1 = changed). 

D (X): Command modes. 

OK: Flashlight on? 

DP, FR, PF, PM, SC: Monster or 

hazard flags (0 = active, 1 = absent). 

DT: Dark flag. 

E, W, N, S, U, D: Direction 
pointers. 

E$: Picks last three letters of object 
command D$. 

F, Kl, K3, J, TM, X, Y: Work 
variables. 

FL: Floor pointer. 
G (X): Door status (0 = locked, 
1 = open). 

H$ (X): Permanent storage of 
items. 

I (X): If item X is carried by player, 
then I (X) = l. 
J$, N$: Room descriptions. 
M$, R$: Used to change, add, or 
remove an item in room or if car- 
ried. 

PT: Plant status (0 = small, 
1 =huge). 

RS: Rope status (0 = loose, 1 =tied 
to stake, 2 = stretched across quick- 
sand). 
TI: Current time (9th floor only). 
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19 PRINT "IN AN ELEVftTOR."iS = 8 


55 


PRINT J«;N = 46:E = 48;S = 47 


355 


FOR B = 1 TO 12;B(B) = 0; NEXT 


: SOTO 350 




! GOTO 350 






20 PRINT "IN fi HfllNTENANCE ROOH. 


56 


PRINT N»:S = 45: SOTO 350 


360 


IF H THEN PRINT " NEST";:B( 


•iN = 8: SOTO 350 


57 


PRINT "IN A LIBRARY. ";N = 45: 




1) = N:B(2) = H 


21 PRINT "IN fl CRflHLSPACE ATOP T 




GOTO 350 


361 


IF A = 41 AND FR = THEN 36 


HE ELEVATOR" !D = 9i SOTO 350 


SB 


PRINT 'IN THE SNIM ROON";N = 




5 






45; SOTO 350 


362 


IF N THEN PRINT " NORTH"; ;B 


22 PRINT "ON A VERY NARROW LEDSE 


59 


PRINT "IN THE SNIfl ROOH":N = 




(3) = N:B(4) = N 


.": SOTO 350 




50;E = 51: SOTO 350 


363 


IF A = 16 AND DP = THEN 36 


23 PRINT J*:H = MiS = 16: SOTO 


60 


PRINT "IN A LAUNDRY ROOH";S = 




8 


350 




49: GOTO 350 


364 


IF E THEN PRINT " EAST";:B( 


24 PRINT "IN A VISITORS' LOUNSE. 


61 


PRINT "IN A DININS ROOH.°;N = 




51 = E:B(6) = E 


■iN = 15;E = 13i SOTO 350 




49: GOTO 350 


365 


IF S THEN PRINT " SOUTH"; :B 


25 PRINT "IN A CLOSET. "jE = 14: GOTO 


62 


PRINT J$:N = 53:E = 54: GOTO 




(7) = S;B(8) = S 


350 




350 


366 


IF U THEN PRINT " UP";:B(9) 


26 PRINT N»:N = 13!E = 17: SOTO 


63 


PRINT "IN A RESTRDQM.";S = 52 




= U:B(10) = U 


350 




: SOTO 350 


367 


IF D THEN PRINT " DOHN";:B( 


27 PRINT N«:M = 16: SOTO 350 


64 


PRINT J$;« = 52!E = 55: SOTO 




11) = D:B(12I = D 


28 PRINT J$:W = 20:N = 19:E = 24 




350 


368 


PRINT : PRINT 


:S = 21: SOTO 350 


65 


PRINT J$;t( = 54;N = 56; GOTO 


370 


FOR B = 1 TO 58: IF A = ABS 


29 PRINT N$:S = 18: SOTO 350 




350 




(A(B)) THEN C = C + 1; GOTO 


30 PRINT "IN A TOOL CRIB/sE = 1 


66 


PRINT "IN A LABORATORY. ":S = 




372 


8: GOTO 350 




55: SOTO 350 


371 


NEXT : PRINT ; SOTO 374 


31 PRINT J$:N = 18:E = 22: SOTO 


67 


PRINT "IN A CHILD'S PLAYROOH. 


372 


IF C < 2 THEN PRINT "THINGS 


350 




";N = 55: SOTO 350 




YOU SEE HERE:" 


32 PRINT N$:t( = 21:E = 23: GOTO 


68 


PRINT N$:N = 59: GOTO 350 


373 


PRINT " "A«(B): SOTO 371 


350 


69 


PRINT "IN A LOUNGE. ":E = 58: SOTO 


374 


IF A = 37 AND FR = 1 THEN PRINT 


33 PRINT "IN A SHALL STORASE ROO 




350 




"YOU FORSOT YOU NERE NAKED." 


H.";N = 22: SOTO 350 


70 


PRINT "IN A CRANLHflY.":E = 61 




,"YOU BLUSH AND RUN OUT.": A = 


34 PRINT J$;N = 18: GOTO 350 




: GOTO 350 




41: SOTO 5000 


35 PRINT 'IN A NARROW STAIRHAY." 


71 


PRINT "IN A CRAWLNflY.":^ = 60 


375 


IF G = 1 THEN PRINT "YOU AM 


:« = 24: GOTO 350 




: GOTO 350 




AKEN ON THE 9TH FLOOR OF A S 


36 PRINT J«:N = 3l!N = 27;E = 29 


72 


GOTO 54 




TRANGEBUILDING, OBVIOUSLY A 


:S = 30; GOTO 350 


73 


PRINT "IN A LOUNGE. ":E = 64: GOTO 




KIDNAP VICTIM. YQUARE ALONE 


37 PRINT N$:N = 28:S = 26: GOTO 




350 




AT THE HOHENT AND HOST ESCAP 


350 


74 


PRINT J«;N = 63: GOTO 350 




E FROM THE BUILDIN6, FLOOR B 


38 PRINT "IN A CLOSET. ":S = 27: SOTO 


75 


PRINT "IN THE ENTRANCE HALL." 




Y FLOOR. ';S = 


350 




; GOTO 350 


376 


IF A = 7 THEN PRINT "YOU SE 


39 PRINT "IN A SANE ROON.":M = 2 

6: GOTO 350 

40 PRINT N«:N = 26: GOTO 350 

41 PRINT J«;H = 33:N = 32:E = 26 


I 
200 


litialization. 
DIN A$(S8),A(58),B(12),Bt(39 




E A SMALL LEDGE OUTSIDE THE 
NINDOM';: IF KY = THEN PRINT 
"AND A SINGLE KEY TO A KEY C 
HAIN THERE." 


: SOTO 350 

42 PRINT "IN A STORE ROOM.':S = 

31: GOTO 350 

43 PRINT N$:E = 31: GOTO 350 


210 


),C«(7),D(39),H$(5B),I(58) 
FOR A = 1 TO 55: READ At (A), 
A(A):H$(AI = A«(AI: NEXT : FOR 
A = 1 TO 39: READ B«(A); NEXT 


377 


1 in ■ 11 II ibiik ■ 

IF RS = 2 THEN IF A = 64 OR 
A = 65 THEN PRINT "ROPE IS 
STRETCHED ACROSS QUICKSAND." 


44 PRINT "ON A LARGE LEDGE BY TH 

E MINDOM.':H == 36: GOTO 350 

45 PRINT "IN THE VAULT. ":W = 36: 


: FOR A = 13 TO 39: READ D(A 
): NEXT 
220 A = 1:G = 1;FL = 9;TN = - 2: 


378 


IF A = 33 THEN PRINT "THERE 
IS A HIDE, LONG LEDGE OUTSI 
DE THE MINDOH.' 


GOTO 350 

46 PRINT "ON A LARGE LEDGE BY TH 

E NINDON.":E = 34: SOTO 350 

47 PRINT N«:S = 41: SOTO 350 


J« = "IN A HALLNAY.":N« = "I 
N AN OFFICE." 

Description of current location. 


382 


IF A = 56 AND JK = THEN PRINT 
"LABELS ON BOTTLES:",," SO 
LUTION: ANTIDOTE",," FLUID 
: UNDECIPHERABLE" 


48 PRINT J$;E = 43:N = 39:S = 40 

: SOTO 350 

49 PRINT N«!S = 38: GOTO 350 

50 PRINT N»:N = 38: SOTO 350 

51 PRINT J<:H = 43;N = 37:5 = 42 

i GOTO 350 

52 PRINT N»iN = 41; SOTO 350 


300 N = 0:N = 0:E = 0:S = 0;U = 
;D = 0:Y = 0; HONE ; PRINT " 
YOU'RE "); IF DK = AND TH > 
24 THEN DT = 1 
310 IF DT < > 1 THEN 10 
320 HOHE ; PRINT CHR» (7)"P0IIER 


383 


IF A = 5B THEN PRINT "A DRO 
OLING ALLIGATOR BLOCKS YOUR 
HAY EAST. HE HAS THE RENA 
INS OF A KIDNAPPER IN HIS HO 
UTH. YOU CATCH A 6LIHPSE OF 
A STAIRCASE PAST THE ALLIGA 
TOR." 


53 PRINT J$:N = 38:E = 41: SOTO 




FAILURE! IT'S TOO DARK TO 






350 




SEE!";DT = 2; SOTO 390 






54 PRINT "IN A STAIRCASE."! GOTO 


350 


PRINT "FLOOR "FL" SOHE E 






350 




XITS ARE;" 




continued on next page 
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continued from previous page 


393 


IF A» = "GNIH" THEN 974 


468 


IF (A = 14 AND Et = "NHA" AND 


384 IF A = i4 AND RS < 2 THEN PRINT 


394 


IF A« = "NAIT" THEN 1050 




PF = 0) OR (A = 17 AND Et = 


'A HUGE BOG OF 6UICKSAND BLO 


395 


PRINT ! FOR B = 1 TO 12: IF 




"HAN") OR (A = 58 AND Et = " 


CKS YOUR HAY EAGT. THE FRONT 




At = Bt(B) THEN 397 




TOR") THEN 7000 


ENTRANCE IG THERE, YOUR WY 


396 


NEXT ! GOTO 399 


469 


IF A = 35 AND (Et = "PER" OR 


TO GAFETY. THERE IG A LARGE 


397 


IF B(B) < > THEN A = B(B) 




Et = "LAR" OR Et = "NEY") AND 


HOOK ON THE OTHER GIDE AND 




: GOTO 300 




1(27) = THEN PRINT "YOU 15 


A TENT GTAKE ON THIG GIDE." 


398 


PRINT "YOU CAN'T GO THAT KAY 




ET TOO CLOSE TO HIN. HE",'JU 


385 IF A = 59 THEN PRINT "THERE 




."! GOTO 390 




UPS UP AND STRANGLES YOU.": GOTO 


18 A TRAP DOOR ABOVE YOU." 


399 


IF At < > "I" AND RIGHT! ( 




7300 


386 IF A = 61 AND Rl = THEN PRINT 




At, 3) < > "DRY" THEN 410 


470 


IF A = 35 AND (Et = "PER" OR 


"THROUGH THE TRAP DOOR YOU 8 


400 


PRINT "YOU ARE CARRYING: ": FOR 




Et = "LAR" OR Et = "NEY") THEN 


EE A LONG COILED ROPE ON 




K = 1 TO 7i PRINT Ct(K))" 




PRINT "KIDNAPPER SEES YOUR 


THE FLOOR BELOH. " 




"i! IF POG (0) > 19 THEN PRINT 




GUN AND FREEZES. YOU GRAB 


387 IF A = 10 AND CI = 1 AND CF = 








A DOLLAR. ":At(56) = "DOLLAR 


THEN PRINT "A FLA8HLIGHT 


401 


NEXT : GOTO 390 




":Ht(56) = At(56):A(56) = 35 


IS THERE." 


410 


FOR B = 13 TO 39: F = LEN (B 




:PH = l:Et = "LAR" 


388 IF A = 10 AND CI = 1 AND CT = 




KB)): IF LEFTt (At,F) = Bt 






THEN PRINT "ELECTRICAL TA 




(B) THEN 450 


471 


IF 1(48) = 1 AND Et = "TER" AND 


PE IG THERE. " 


420 


NEXT : PRINT "DON'T KNON MHA 




A = 58 THEN 1(57) = hRt = " 


389 GOSUB 1600 




T " CHRt (34) At CHRt (34)' H 
EANS.": GOTO 390 


472 


CUP OF HATER":K3 = 48: GOSUB 
1100:Ht(48) = Rt! GOTO 4900 
IF Et = "JAR" THEN PRINT "N 


Player input. 


Str 


ing sorting routine, 


473 


HICH ONE?"; GOTO 5000 

FOR J = 1 TO 58: IF Et = RIGHT! 

(At(J),3) AND A = ABS (A(J) 


390 V = FRE (0)!C = 0!TH = TH + 


450 D» = NIDI (Al, LEN (B$(B)) + 




) THEN 475 


l! PRINT ! INPUT "COHHAND? " 




2)!Et = RI6HTI (Dt,3) 






!A«: IF DT = 2 THEN 7500 






474 


NEXT : PRINT "THERE'S NO "Dt 


391 IF A* = "LOOK" THEN 300 


'GET' coiiand. Any special 




" HERE."! GOTO 390 


392 IF At = "JUNP" THEN 800 


conditions are checked to see if 

a dangerous, stationary, or 
otherNise hidden itei can be 


475 


IF A(J) < THEN PRINT "BE 
REASONABLE NON. THAT'S INPO 
GGIBLE.": GOTO 390 




_ . 










carried; else itei is given to 


476 


IF Et < > "OOK" THEN 479 






player and KX) is set to 1. 


477 


PRINT "TITLE OF BOOK: HON TO 












"i! IF A = 47 THEN PRINT " 
GMIN" 










460 


IF D(B) < > 1 THEN 490 


478 


IF A = 64 THEN PRINT "WALK 






461 


IF Et < > "GHT" AND Et < > 




A TIGHTROPE" 








"APE" AND A < > 10 THEN 465 


479 


PRINT "OK!"! FOR K = 1 TO 7i 
IF Ct(K) = "" THEN Ct(K) = 






462 


IF A = 10 AND CI = THEN PRINT 

"CABINET IS LOCKED."! GOTO 5 

000 

IF Et = "GHT" AND CF = THEN 




At(J): GOSUB 3500:H(K) = J!A 
t(J) = ""!A(J) = 0: GOTO 500 






463 


480 



NEXT 








J = 56!At(J) = "FLAGHLIGHT"! 












Ht(J) = A«(J):A(J) = 10!CF = 








"wl 




1 


'DROP' coiiand. H itei is being 




^ 


464 


IF Et = "flPE" AND CT = THEN 
J = 57:At(J) = "ELECTRICAL T 
APE":Ht(J) = At(J)!A(J) = 10 
!CT = 1 


carried, it is dropped in current 
rooi. Prograi checlts for any 
changes that iight occur if certain 
itei is dropped in a particular 






465 


IF A = 7 AND KY = AND Et = 


root. I(X) is set to rooi nuiber. 








"KEY" AND 1(4) < > 1 THEN PRINT 












"YOUR ARH IS TOO SHORT TO RE 












ACH IT."! GOTO 5000 


490 


IF D(B) < > 2 THEN 600 




A 


466 


IF A = 7 AND KY = AND Et = 
"KEY" THEN J = 58!At(J) = Et 


500 


FOR J = 1 TO 7: IF Et = RIGHTt 
(Ct(J),3) THEN 520 




^^F 




:Ht(J) = At(J):A(J) = 7:1(58 


510 


NEXT ! PRINT "YOU'RE NOT CAR 




^Rh 


467 


) = l!KY = 1 

IF A = 63 AND Et = "KEY" THEN 


520 


RYING IT."! GOTO 390 

FOR K = 1 TO 58: IF At(K) = 




wB^ 




'^■^p- 




PRINT "NE ALL KNON PIANOS H 




"" THEN A«(K) = Ct(J)!A(K) = 








AVE KEYS."!J = 56!At(J) = Et 




A!H(J) = 0! GOTO 530 








:Ht(J) = At(J);A(J) = 63:1(5 


525 


NEXT 








6) = 1 
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530 PRINT "OK!"! FOR Kl = 1 TO 5 
8: IF C«(J) = H$(K1) THEN C< 
(J) = "! SOTO 540 

535 NEH 

540 IF ft = 14 AND E$ = "ILL" THEN 
PRINT "YOU DROP PILL IN AQU 
flRIUM.":PF = 1:K3 = 15:N$ = 
"SLEEPING PIRANHA"! BOSUB 12 
00! GOTO 5000 

545 IF A = 16 AND DP = AND E» = 
"NHA" THEN PRINT "PIRANHA D 
EVOURS DOBERMAN PINCHER, THE 
N DIES OF OVEREATING. "!DP = 
l!K3 = 15!N$ = "GLUTTONOUS D 
EAD PIRANHA": 60BUB 1200!K1 = 
15!A(57) = - 16!A«(57) = "E 
ATEN D0BERHAN"!H«(57) = A«(5 
7): SOTO 590 

550 IF A = 32 AND E$ = "LAR" THEN 
A«(57) = "LQN6 STRING' iH* (57 
) = A«(57):A(57) = 32:K1 = 5 
7!K3 = 56!N« = ""! SOSUB 120 


590 KKl) = A: GOTO 5000 

'60' coiiand. If conditions are 
let, player goes where requested. 
(You can't go through a locked door 
or doHn a broken staircase.) 
Variable A is then set to new 
location. 



600 IF D(B) < > 3 THEN 620 

601 IF A = 16 AND E« = "MAN" OR 
A = 58 AND E« = "TOR" THEN 7 
000 

602 IF A = 41 AND E$ = "IRE" OR 
A = 64 AND E$ = "AND" THEN 7 
200 

603 IF ft = 25 AND E$ = "IRS" AND 
SC = THEN PRINT "STEP IS 
MISSING! YOU FELL DOHN THE 

STftlRS.": GOTO 7200 

604 IF E» = "OPE" AND Rl = 1 AND 

A = 17 THEN A = IGsRl = 0! GOTO 
8000 

605 IF E» = "OPE" AND Rl = 1 AND 

A = 61 THEN A = 62!R1 = 0! GOTO 
300 

606 IF E» = "ANT" AND PT = 1 AND 
A = 59 THEN ft = 60! GOTO 300 

607 IF E$ = "ANT" AND PT = 1 AND 
A = 60 THEN A = 59i SOTO 300 

608 IF E$ = "OPE" AND A = 65 THEN 
A = 64! GOTO 300 

609 IF E$ = "OPE" AND A = 64 AND 
RS = 2 AND BR = 1 THEN A = 6 
5! GOTO 300 

610 IF E$ = "OPE" AND A = 64 AND 
RS = 2 THEN PRINT "YOU DON' 
T KNDH HON TO MALK A TISHTRD 
PE."! GOTO 7200 



611 IF E« = "DON" THEN IF A = 3 

4 OR A = 36 THEN ft = A - 1: GOTO 
300 

612 IF E$ = "DGE" fiND A = 7 THEN 

PRINT "LEDGE BREAKS!"! GOTO 
7200 

613 IF E$ = "DGE" THEN IF ft = 3 

3 OR ft = 35 THEN ft = ft + l! GOTO 
300 

614 IF E$ = "IRS" THEN IF ft = 2 

5 OR ft = 44 OR A = 62 THEN ft 
= A + li GOTO 8000 

615 IF E$ = "OOR" THEN IF ft = 2 

4 OR A = 43 OR A = 30 OR A = 
65 THEN IF 6((A / 10 - INT 

(ft / 101) t 10) = THEN PRINT 
"THE DOOR'S LOCKED.": GOTO 5 
000 

616 IF E» = "OOR" THEN IF A = 2 
4 OR A = 43 OR A = 30 OR ft = 
65 THEN A = ft + 1: GOTO 300 

617 IF E$ = "OOR" AND A = 55 THEN 

IF SO = 1 OR JK = 1 THEN A = 
57: GOTO 300 

618 IF E$ = "OOR" AND A = 55 THEN 

PRINT "IT'S STUCK! YOU'RE N 
OT STRONG ENOUGH TO OPEN 
IT!"! GOTO 5000 

619 IF E$ = "IDE" ftND A = 57 THEN 

PRINT "YOU SLIDE THROUGH HO 
LE IN FLOOR. ":A = 58: GOTO 8 
000 



'OPEN' coiiand. Checks first if 
player has a key for door or 
cabinet. 



620 IF A = 9 THEN IF E« = "OOR" 

OR E$ = "AIR" THEN IF A = 
1(3) THEN PRINT "YOU STEP 
N CHAIR AND JUST MANAGE TO 
REACH THE TRAP DOOR."!A = 
11: GOTO 5000 

621 IF A = 9 THEN IF E$ = "OOR" 

OR E» = "AIR" THEN PRINT " 
YOU CAN'T REACH IT.": GOTO 5 
000 

630 IF D(B) < > 4 THEN 650 

631 IF E$ = "OOR" AND A = 55 AND 
JK = THEN 618 

632 IF E« = "OOR" AND A = 55 THEN 
60SUB 4000!G(1) = 1;SD = I; 
GOTO 4900 

633 IF E$ = "OOR" THEN IF A = 4 

3 OR A = 24 OR A = 65 THEN IF 
1(56) = 1 OR ft = 43 ftND 1(42 
) = 1 THEN SOSUB 4000:G((A / 
10 - INT (A / 10)) « 10) = 
1: PRINT "DOOR'S OPEN": GOTO 
5000 

634 IF E$ = "OOR" THEN IF A = 4 

3 OR A = 24 OR A = 65 THEN PRINT 
"YOU NEED A KEY": GOTO 5000 

continued on next page 
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continued from previous page 


'JUMP' coaiand. 


900 


IF D(B) < > 11 THEN 930 


635 IF A = 10 AND CI = AND 1(5 




905 


IF A = 19 AND E» = "KEY" m 


8) = 1 THEN PRINT "CABINET' 






1(21) = 1 THEN A$(56) = "CRU 


S QPEN'iCl = li GOTO 5000 


800 IF A = 60 OR A = 61 OR A = 6 




DE KEY';Ht(56) = A«tS6):A(56 


636 IF 1(39) = 1 AND E» = "LLA" THEN 


4 THEN 7100 




) = 19: GOTO 4900 


K3 = 39:R$ = 'OPEN POPPIN'S 


802 IF A = 34 OR A = 36 THEN IF 


930 


IF D(B) < > 12 THEN 950 


UHBRELLA'; GOSUB 1100: UN = 1 


1(25) = 1 AND BO = 2 THEN PRINT 


935 


IF A = 25 AND 1(19) = 1 THEN 


! GOTO 4900 


"BALLOON CARRIES YOU DOHN ON 




IF 1(20) = 1 OR A = 1(20) THEN 




E FLOOR. ':A = 43: GOTO 8000 




IF E« = "TEP" OR E< = "IRS" 




804 IF A = 34 OR A = 36 THEN 710 




THEN PRINT 'STAIR'S FIXED" 


'READ' coiiand. 







:SC = 1:R« = ":K3 = 20: GOSUB 




806 IF 1(39) = 1 AND UH= 1 THEN 




1100:H« = "": GOSUB 1200: GOTO 




PRINT 'YOU FLOAT DOMN ONE F 




5000 


650 IF D(B) < > 5 THEN 700 


LOOR.";A = 52: SOTO 8000 


950 


IF D(B) < > 13 THEN 960 


651 IF E$ = MTI" AND A = 6 THEN 


808 IF 1(39) = 1 THEN PRINT "UM 


955 


IF 1(25) = 1 THEN IF 1(24) = 


PRINT 'IT SAYS: MATCH OUT F 


BRELLA MASN'T OPEN!": SOTO 7 




1 OR A = 1(26) THEN IF E« = 


OR LIVE ONES": GOTO 5000 


10 




"OON" THEN K3 = 25: R« = "LAR 


652 IF £» = "ITI" AND A = 53 THEN 


810 GOTO 730 




GE INFLATED BALLOON": GOSUB 


PRINT 'GRAFFITI: DO YOU HAV 






1100:H((25) = R«;BO = 1: GOTO 


E A SPLIT PERSONAL 






4900 


ITY?": GOTO 5000 


'TIE' coiiand. 


960 


IF D(B) < > 14 THEN 970 


655 IF E$ = "OTE" THEN IF Id) = 




963 


IF E$ = "GUN" OR E« = "PER" THEN 


A OR Id) = 1 OR A = 2 AND I 


830 IF D(B) < > 9 THEN 850 




IF 1(27) = 1 AND A = 35 THEN 


(1) = THEN PRINT "NOTE SA 


831 IF A = 11 AND E$ = "RES" AND 




PRINT "GUN HAD BLANKS!",,,' 


YSi ' CHR$ (34) "IMPORTANT TV 


TH < 23 THEN PRINT "YOU'RE 




KIDNAPPER SHOOTS YOU!": GOTO 


PROGRAM ON" CHR$ (34): SOTO 


ELECTROCUTEDI": GOTO 7200 




7200 


390 


832 IF A = 11 AND E$ = "RES" AND 


967 


IF E» = "GUN" OR E« = "PER" THEN 


660 IF E$ = 'IGN" AND A = 32 THEN 


1(57) = 1 THEN EF = 1;A$(12) 




IF 1(27) = 1 THEN PRINT "8 


PRINT "SIGN: STRING COSTS ♦ 


= "TAPED MIRES":H»(12) = A« 




UN MISFIRES.': GOTO 5000 


1.00": GOTO 5000 


(12): GOTO 4900 


970 


IF D(B) < > 15 THEN 980 


670 IF E« = "TV" AND A = 5 THEN 


833 IF A = 11 AND E$ = "RES" THEN 


972 


IF FR = 1 AND 1(32) = 1 AND 


PRINT "BULLETIN;",,, "POKER 


PRINT "MIRES FALL APART AGA 




1(33) = 1 AND E» = 'HES' THEN 


WILL BE SHUT OFF AT HIDNIGHT 


IN.": GOTO 5000 




PRINT "YOU HAVE KNITTED A F 


...': GOTO 5000 


835 IF E$ = "OON" OR Et = "ING" THEN 




INE SUIT AND ARE MEARING 


6B0 IF E$ = 'OCK" AND A = 5 THEN 


IF BO = 1 AND 1(25) = 1 AND 




IT.":FR = 2: GOTO 5000 


PRINT "TIME: ";:TI = INT ( 


1(57) = I THEN K3 = 57:R$ = 






TM / 2): IF TI > 12 THEN PRINT 


"": GOSUB 1100:K3 = 25:R« = 


'SMIN' CDMand. 1 


"PAST MIDNIGHT": GOTO 5000 


"LARGE INFLATED BALLOON MITH 






690 IF E$ = "OCr AND A = 5 THEN 


STRING": GOSUB 1100:B0 = 2; 






PRINT TI"P.M.': GOTO 5000 


GOTO 4900 


974 


IF SP = THEN 1000 


695 IF E» = "DDK" THEN IF 1(38) 


840 IF E» < > "OPE" THEN 850 


975 


IF A = 49 THEN A = 48: GOTO 


= 1 OR 1(52) = 1 THEN BR = 


842 IF A = 64 AND 1(54) = 1 THEN 




300 


1; GOTO 4900 


K3 = 54;R« = "': GOSUB 1100: 


976 


IF A = 48 AND BR = THEN PRINT 




A$(54) = 'END OF ROPE TIED T 




"YOU DON'T KNOM HON TO SHIM! 


'PUSH' coiiand. 


STAKE':H$(54) = A$(54):A(5 




": GOTO 7200 




4) = - 64:RS = 1: GOTO 4900 


977 


IF A = 48 THEN A = 49; GOTO 


700 IF D(B) < > 6 THEN 830 






4900 


702 IF E« < > "TON" THEN 1000 


844 IF A = 17 AND 1(14) = 1 THEN 






704 IF A = 9 AND EF = 1 THEN PRINT 


PRINT "ROPE TIED TO DESK";K 






"ELEVATOR GOES DOMNI":A = 13 


3 = 14:R$ = "": GOSUB 1100:A 


'DRINK' coiiand. | 


: GOTO 8000 


$(8) = "ROPE HANGING OUT MIN 






710 IF A = 42 AND FR = THEN PRINT 


D0M":R1 = 1:H«(8) = A$(8);A( 






"SPRINKLER TURNED ON. FIRE 


8) = - 17; GOTO 5000 


980 


IF D(B) < > 18 THEN 985 


UT.",»BUT YOUR CLOTHES ARE V 
ERY MET. YOU TAKE THEM OFF. 
YOU ARE NOM NAKED. "iFR = 1:A 


'LIGHT', 'HAKE', 'BLUE', 'INFLATE', 
'SHOOT', and 'KNIT' coiiands. 


981 


IF E( = "ION" AND 1(44) = 1 AND 
JK = 1 THEN PRINT "YOU'VE C 
HANGED BACK!":JK = 0; GOTO 5 


$(57) = "MET CL0THES":H$(57) 






000 


= A«(57):A(57) = - 42; GOTO 








5200 


850 IF D(B) < > 10 THEN 900 


982 


IF E$ = "ION" AND 1(44) = 1 THEN 




855 IF A < 13 AND E« = "GHT" AND 




4900 


720 IF A = 46 AND SP = THEN PRINT 


1(56) = 1 THENK3 = 56: R$ = 


983 


IF E» = "UID" AND 1(45) = 1 THEN 


"CLICKI":SP = 1: GOTO 5000 


"LIT FLASHLIGHT": GOSUB 1100 




PRINT "YOU'VE CHANGED INTO 


730 PRINT "NOTHING HAPPENS.'; GOTO 


;Ht(56) = Rt:DK = 1; GOTO 49 




MR. HYDE!", "YOU ARE VERY STR 


5000 


00 




ONG!":JK = 1: GOTO 5000 
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'POUR' coiund. 



985 IF D(B) < > 19 THEN 990 

986 IF A = 59 ftNO E« = 'TER' AND 
1(57) = 1 THEN PRINT "PLANT 

GRONS TO CEILIN6.'iA«(49) = 
"HUGE PLANT"!PT = liH»(49) = 
A$(49): GOTO 5000 



'PLAY' coiiand. 



990 IF DIB) < > 20 THEN 995 

991 IF E$ = "UTE" AND A = 41 AND 
1(50) = 1 AND RJ = THEN PRINT 
"INDIAN ROPE RISES UP TO YOU 
'■.Rl = 1:A$(56) = "END OF RO 
PE"iH«(56) = A«(56)!A(56) = 

- 61: GOTO 5000 
993 IF E$ = "ANO" AND A = 63 THEN 
PRINT "LIBERACE YOU'RE NOT! 
"! GOTO 5000 



'THRDM' coiiand. 



995 IF D(B) < ) 21 THEN 1000 

996 IF E« = "OPE" AND A = 64 AND 
RS = THEN PRINT "TIE THE 
OTHER END FIRST.": GOTO 5000 

997 IF E« = "OPE" AND A = 64 AND 
RS = 1 THEN PRINT "HOOK ON 
ROPE CATCHES OTHER HOOK NEAR 

ENTRANCE AND STRETCHES T 
I6HT.":RS = 2;K3 = 54;N$ = " 
■: 60SUB 1200; GOTO 5000 



Various lessages. 



1000 PRINT "YOU CAN'T DO THAT NO 

«.": GOTO 390 
1050 PRINT "3 HOURS PASS.":TH = 

TH + 5; SOTO 390 



Subroutines to change, add, or 
eliiinate iteis Mhich are carried 
or are in current rooi. R$ or N* 
is set to itei (change, add) or to 
null (vanish). 



UOO FOR K2 = 1 TO 7: IF C$(K2) = 
H»IK3) THEN C$(tC2) = R»: GOSUB 
1150: RETURN 

1110 NEXT i RETURN 

1150 IF R$ = "" THEN I(l<;3) = 

1160 RETURN 



1200 FOR K2 = 1 TO 58; IF A«(K2) 
= Ht(K3) THEN A((K2) = H$:H 
f(K3) = M;A(K2) = A(K2) t ( 
HI < > ■"):I(K3) = I(K3) t 
(H$ < > ""): RETURN 

1210 NEU : RETURN 

1499 GOTO 5000 



Descriptions. (Continuation froi 
line 389 to further describe 
contents of rooi.) 



1500 PRINT "THERE IS A PATH EAST 
, BUT A VICIOUS, SNARLING 
DOBERHAN BLOCKS YOUR NAY.": 
RETURN 

1505 PRINT "AQUARIUH FULL OF PIR 
ANHA FISH.': RETURN 



1510 PRINT "THE STAIRCASE IS VER 
Y ROTTEN AND ONE HOODEN S 
TEP IS HISSING.": RETURN 

1515 PRINT "KIDNAPPER COUNTING K 
ONEY. HE DOESN'T SEE YOU 
YET."; RETURN 

1517 PRINT "KIDNAPPER IS SCARED. 
■: RETURN 

1520 PRINT "THERE IS A PATH NORT 
H, BUT A RAGING FIRE BLD 
CKS YOUR NAY.": RETURN 

1530 PRINT "A LARGE SKIMMING POO 

L SPANS ACROSS THE ENTIRE R 

OON, DIVIDING IT IN HALF. IT 

IS VERY DEEP AND EHPTY." 

; RETURN 

1540 PRINT "SNIHNIN6 POOL IS FUL 
L OF NATER."; RETURN 

1600 IF A = 16 AND DP = THEN 1 
500 
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continued from previous page 

1605 IF A = M AND PF = THEN 1 

505 
1610 IF ft = 25 AND SC = THEN 1 

510 
I&IS IF A = 35 AND PN = THEN 1 

515 
1620 IF A = 35 AND PN = 1 THEN 1 

517 
1625 IF A = 41 AND FR = THEN 1 

520 
1630 IF ft = 48 AND SP = THEN 1 

530 
1635 IF A = 48 AND SP = 1 THEN 1 

540 
1640 RETURN 

Data stateients for iteis, Strings 
are read perianently into HtOII and 
teiporarily into A$(X). The nuiber 
folloHing each string indicates the 
rooi nuiber in which the itei is 
initially placed, and is stored in 
A()(). AIX) will always correspond 
with At(X), Mhere X is the itei 
nuiber. A negative nuiber 
indicates that an itei cannot be 
reioved froi the rooi under any 
condition, but it could still be 
altered. 



2000 DftTA PftPER NOTE, 2, DESK, -2,C 
HAIR,2,L0N6 BROOM, 3, TV SET,- 
5,CL0CK,-5,SRftFFITI ON KftLL, 
-6,0PEN NIND0N,-7,TRftP DOOR 
IN CEILING, -9, DOWN BUTTON, -9 
, CABINET, -lO.ENDS OF T«0 'LI 
VE' HIRES, -11, AGUARIUH,-14,R 
OPE, 15, SLEEPING PILL,16,0PEN 
WINDOW, -17 

2010 DATA DESK, -17, KEY HAK1N6 NA 
CHINE,-19, SUPER GLUE,20,WOOD 
EN STAIR STEP,20,THICK COPPE 
R SHEET, 23, LOCKED DOOR, -24, W 
OODEN STAIRS, -25, TANK OF HEL 
lUH 6AS,28,LAR6E DEFLATED BA 
LL00N,29 

2020 DATA LOCKED DOOR, -30, GUN, 30 
,SI6N ON WALL,-32, STRING VEN 
DING MACHINE, -32, OPEN WINDOW 
,-33, LOCKED DOOR, -43, BALL OF 
YARN, 39, KNITTING NEEDLES,40 
,PUSH BUTTON ON WALL, -42, 'SE 
XY, YOUNG GIRL OFFICE WORKER 
S",-37,STftIRS,-44 

2030 DATA PUSH BUTTON ON WALL, -4 
6,600K,47,NftRY POPPINS UNBRE 
LLA,50,0PEN WINDOW, -51, GRAFF 
ITI ON WALL, -53, SHALL KEY, 37 
.STEEL DOOR, -55, JAR OF YELLO 
W SOLUTION, 56, JAR OF FLUID,5 
6,CHILD'S SLIDE,-57 



2040 DftTA WATER COOLER, -58, PAPER 
CUP,58,SNftLL-SIZED PLANT, -5 
9,FLUTE, 61, STAIRS, -62,SHALL 
B00K,64,PIAN0,-63,L0NG ROPE, 
63, FRONT DOOR, -65 

Data stateients for coiiands. 
Coiiands are read into Bt(XI. 
Bt(l)-Bt(12) hold all possible 
directions and shorthand notation, 
allowing for player to input entire 
direction or Just the initial 
letter. Starting with B$(13) all 
coiiands have a corresponding code 
nuiber, read into DIX), which picks 
the proper action—allowing the use 
of synonyis for the saie coiiand. 



2100 DATA WEST,W,NORTH,N,EAST,E, 
SOUTH, S,UP,U,DOWN,D, GET, TAKE 
,DROP,PUT,GIVE,PAY,CLINB,GO, 
ENTER,OPEN,READ,CHECK, WATCH, 
PRESS,PUSH,TAPE,TIE, LIGHT, Nft 
KE,GLUE, INFLATE, SHOOT, KNIT, D 
RINK,P0UR,PLAY,THROW 

2110 DftTft 1,1,2,2,2,2,3,3,3,4,5, 
5,5,6,6,9,9,10,11,12,13,14,1 
5,18,19,20,21 



Short subroutines. 



3500 FOR K4 = 1 TO 58: IF A$(J) = 

Ht(K4) THEN I(K4) = liK4 = 6 


3600 NEXT i RETURN 
4000 IF A = 24 THEN X = 22: GOTO 

4100 
4010 IF A M3 THEN X = 3l! GOTO 

4100 
4020 IF A = 55 THEN X - 43; GOTO 

4100 
4030 X = 55 
4100 A$(X) = "OPEN DOOR": RETURN 



Tiling loop. This is the only 
delay in the prograi, and is used 
to give the player tiie to read 
lessages. 



4900 PRINT "OKI" 

5000 IF E$ = "OOR" AND A = 71 THEN 

PRINT "YOU NEED A KEY." 
5100 FOR V = 1 TO 2000: NEXT : GOTO 

300 
5200 FOR V = 1 TO 3500: NEXT : GOTO 

300 

You win I 



6000 PRINT "OUT. YOU'VE HADE IT 
I ■ 

6010 END 
You're dead. 
7000 PRINT "AftHHHHHHHHHHHHHHHHHH 



7010 PRINT "YOU DIE A HORRIBLE ft 

ND GRIZZLY DEATH, YOUR BOD 

Y TORN TO SHREDS.": GOTO 730 


7100 PRINT "YOU NOW LOOK LIKE A 

PANCAKE!" 
7200 PRINT "YOU SEEN TO HAVE GOT 

TEN YOURSELF KILLED! "i 
7300 PRINT : PRINT "TO TRY AGAIN 

, YOU'LL HAVE TO START OVER 

FROH THE 9TH FLOOR." 
7400 END 

7500 IF LEFT* (At, 4) » "LIGH" AND 
RIGHT* (A*, 41 = "IGHT' THEN 

GOTO 391 
7510 PRINT "YOU CAN'T SEE WHERE 

YOU'RE GOING... OOPS! S 

ORRY, YOU FELL AND BROKE YOU 

R NECK!" 
7520 GOTO 7200 



Drop down to the next floor. You 
lose any itei you were carrying. 
Ct(X) is cleared, as is part of 
I(X). 

8000 1(38) = OsGd) = 0: IF JK = 
1 THEN PRINT "YOU FORGOT TH 
E ANTIDOTE! FLUID POISONS Y 
OU.": GOTO 7200 

8010 BR = 0:FL = FL - 1: PRINT "Y 
OU HADE IT DOWN TO THE NEXT 
FLOOR, BUT YOU HAD TO DR 
OP ANYTHING YOU WERE CARRY 
ING." 

8020 FOR G = 1 TO 7:C*(G) = "": NEXT 
; FOR S = 56 TO 58:1(6) = 0: 
NEXT 

8030 GOTO 5200 




40 
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Atari Version 

Notes on the Atari version: 

Underlined characters in the listing 
should be typed using the Atari logo 
key to produce in reverse video. 

Since the Atari does not support 
string arrays, this version uses single 
(very large) strings to simulate arrays. 
This is done by making all sub-strings 
the same length, appending spaces to 
fill them out. Each item is then ac- 
cessed by its position within the 
larger string. 

This method results in some 
changes in the way the program looks 
at the user's input. The original and 
Apple versions of "Kidnapped" look 
at the last three characters of the in- 
put to determine what the player 
wants to do. This approach won't 
work, however, when the object's 
name may be padded with spaces in 
the computer's memory. So in the 
Atari version, when you are using the 
GET and PUT commands, you must 
type the FIRST three letters of the 
object. For other commands you 
must type its LAST three letters. If 
you want to pick up a "SHINY MIR- 
ROR" you must say "GET SHI"; to 
look at it you must say "LOOK 
ROR". Of course, you may always 
type more than three characters, as 
long as the three needed ones are 
there. 

DOCUMENTATION 

Lines 10-70: Introduce the program 
and the programmers. 
Lines 110-120: Print start-up display. 
Lines 140-790: Room descriptions. 
Line 140 checks to see if you have 
escaped from the first floor, other- 
wise line 142 computes which line 
should be accessed to print out the 
room description, based on the 
number of the room you are in 
(variable A). 

Lines 800-820: Initialization. DIMen- 
sions strings and array, reads in 
string data, and clears numerical ar- 
rays. Lines 830-1120: Description of 
current location. The program first 
branches to line 140 to print out the 



room description. It then prints the 
possible exits, the contents of the 
room, and any special messages that 
are to be displayed for this location. 
Lines 1130-1286: Player input 
routine. The TRAP 9000 is used to 
prevent an error if the user enters an 
empty string for a command. After a 
command is entered, this routine will 
break it up into the required pieces 
(Al$, D$, E$, etc.). 
Line 1190-1220: Check to see if a 
movement command was entered. If 
so, it is then checked for legality and 
operated upon. 

Lines 1230-1250: Inventory routine. 
Prints out the contents of the 
simulated array C$. 
Lines 1260-1270: Check to see if the 
command had a legitimate verb in it 
by comparing the first word of the in- 
putted string to the simulated array 
B$. 

Lines 1290-1490: "GET" command. 
Checks if the specified object is 
dangerous, immobile, or legal to be 
picked up. If legal, then the item is 
added to the array of carried data 
(C$) and the value of I (object #) is 
set to 1 . 

Line 1500-1600: "DROP" com- 
mand. If the specified item is being 
carried, it is dropped into the current 
room. I (object #) is set to the room 
number, and any special conditions 
caused by the DROP are carried out. 
Lines 1610-1800: "GO" command. 
If the proper conditions for the GO 
are met, the player goes where re- 
quested. (You can't travel through 
locked doors, etc.) Variable A is then 
set to the new room number. 

Lines 1810-1890: "OPEN" com- 
mand. Checks for correct conditions 
to perform open and does so if met 
(i.e., a key is needed to open a locked 
door, etc.) 



Lines 1900-1980 

mand. 

Lines 1990-2040 

mand. 

Lines 2050-2100 

mand. 

Lines 2110-2200: "TIE 

Lines 2210-2312: 



READ" com- 



PUSH" com- 
JUMP" corn- 
command. 
'LIGHT", 



"MAKE", "GLUE", "INFLATE", 
"SHOOT", and "KNIT" com- 
mands. 

Lines 2320-2350: "SWIM" com- 
mand. 

Lines 2360-2390: "DRINK" com- 
mand. 

Lines 2400-2415: "POUR" com- 
mand. 

Lines 2420-2440: "PLAY" com- 
mand. 

Lines 2450-2472: "THROW" com- 
mand. 

Lines 2480-2490: Various messages. 
Lines 2500-2560: Subroutines to 
change, add or ehminate items which 
are carried or are in the current 
room. R$ and M$ are set to item 
(change, add) or to null (vanish). 
Lines 2570-2730: Descriptions (con- 
tinuation from line 1130 to further 
describe contents of room). 
Lines 2740-2788: Data statements for 
items. Strings are read permanently 
into H$ and temporarily into A$. The 
number following each string is the 
room number in which the object is 
originally placed, and is stored in ar- 
ray A. A negative number indicates 
that an item cannot be removed from 
the room under any condition, but it 
could still be altered. 
Lines 2790-2800: Data statements for 
commands. Commands are read into 
B$. The first twelve strings hold all 
possible directions and shorthand 
notation, allowing for player to input 
the entire direction or just the initial 
letter. Starting with the 13th string all 
commands have a corresponding 
number, read into D(X), which picks 
the proper action — allowing the use 
of synonyms for the same command. 
Lines 2810-2870: Short subroutines. 
Lines 2880-2910: Delay routine. Used 
to give the player time to read 
messages. 

Lines 2920-2930: You Win!!!! 
Lines 2940-3020: You're dead. 
Lines 3030-3060: Drop down to the 
next floor. You lose any items you 
were carrying, so C$ is cleared, as is 
part of array I. 

Line 9000: TRAP routine to prevent 
an error when a null string command 
is entered. 



10 REH KIDNAPPED 


lis FOR A=& TO 14:P0SITI0N A,2:PRINT t 


200 PRINT 'in a restrooi."!N=4:SDT0 86 


20 REN 


6iCHR«(95)i:POSITI0N A,4:PRINT I6)CHR$ 





30 REN 0RI8INAL PRD6RAN BY: 


(95)!:NEXT A 


210 PRINT N«:N=li80T0 860 


40 REN PETER KIRSCH 


120 BOTO 800 


220 PRINT J«;N=l!N=9:S=10:B0TO 860 


50 REN ATARI TRANSLATION BY: 


140 IF A=&6 THEN 2920 


230 PRINT "in an elevator. "iS=8: GOTO 8 


60 REN RICH BOUCHARD I ALAN J. ZETT 


142 GOTO (AtlO+140) 


60 


70 REN 


150 PRINT J«iN=4:N=2;E=8:S=7i60T0 860 


240 PRINT "in a taintenance rooi.":N=8 


100 SA=22:SH=SA;SB=7!SC=SA 


160 PRINT N$sN=3!S=l:60T0 860 


:60T0 860 


110 GRAPHICS 2+lAiSETCOLOR 4,8,0:P0SIT 


170 PRINT "in a closet. ":S=2iG0T0 860 


250 PRINT "in a crattUpace atop the":P 


ION 6,3!PRINT l6i'kidnappBd"!PGSITI0N 


180 PRINT J«!N=5:E=1;S=6!60TG 860 


RINT 'Blevator";D=9!G0T0 860 


3,B;PRINT 14) "can you eicipe?" 


190 PRINT N$:S=4:G0T0 860 


continued on next page 
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continued from previous page 

260 PRINT "on a very narrow ledge. ";60 

TO 860 

270 PRINT J«itl=14iS=16i60T0 860 

280 PRINT "in a visitor's lounge."!M=l 

5!E=13!80T0 860 

290 PRINT "in a closet. "!E=U;GOTO 860 

300 PRINT N$iN=13!E=17i60TG 860 

310 PRINT N$!M=16:G0T0 B60 

320 PRINT J$!N=20iN=19!E=24!S=2l!60T0 

860 

330 PRINT N$:S=18!60T0 860 

340 PRINT "in a tool crib."iE=18!B0T0 

860 

350 PRINT J«!N=18!E=22!60TQ 860 

360 PRINT N»:M>21;E=23!60T0 860 

370 PRINT "in a siall storage rooi."!« 

=22: GOTO 860 

380 PRINT J«!N=18;G0T0 860 

390 PRINT "in a narrow 5tairKay,"!tl=24 

sGOTO 860 

400 PRINT J»;»=31:N=27!E=29!S=30!60T0 

860 

410 PRINT N(:N=28:S=26!G0TQ 860 

420 PRINT "in a closet. ":S=27!60T0 860 

430 PRINT "in a gaie rooi.°ili=26iG0T0 

860 

440 PRINT N»!N=26!GOT0 860 

450 PRINT J$!H=33iN=32!E=26!GQTQ 860 

460 PRINT "in a store rooi.":S=31:G0T0 

860 

470 PRINT N$:E=31:G0T0 860 
480 PRINT "on a large ledge by the win 
doH.":W=36:G0T0 860 

490 PRINT "in the vault. "!W=36!60T0 86 



500 PRINT "on a large ledge by the «in 

doN.":£=J4!S0T0 860 

510 PRINT N»!S=4l!B0T0 860 

520 PRINT J$!E=43!N=39!S=40!G0T0 860 
530 PRINT N«!S=38:60T0 860 

540 PRINT N«!N=38;G0TD 860 

550 PRINT J«!«M3!N=37iS=42!G0T0 860 

560 PRINT Nt!N=4l!6QT0 860 

570 PRINT J$!«=38:E=41iG0T0 860 

580 PRINT "in a staircase. ■:SOTO 860 

590 PRINT J»!N=46!E=48:S=47!G0T0 860 

600 PRINT N$!S=45!60T0 860 

610 PRINT "in a library. ■!N=45:S0T0 86 



420 PRINT 
860 

630 PRINT 
:GOTO 860 



'in the sMii rooi'!H=45!G0T0 



in the sttii rooi"!N=50:E=51 




640 PRINT "in a laundry rooi."!S=49!G0 

TO 860 

650 PRINT "in a dining rooi."!K=49!G0T 

860 

660 PRINT J»!N=53iE=54!60T0 860 

670 PRINT "in a restrooi.°!S=52!G0T0 8 

60 

680 PRINT J$:N=52!E=55!G0T0 860 

690 PRINT J»!N=54!N=56!G0T0 860 

700 PRINT "in a laboratory. ":S=55:G0T0 

860 

710 PRINT "in a child's playrooi."!N=5 
5!60TQ 860 

720 PRINT N$itl=59iG0T0 860 
730 PRINT "in a lounge. ";E=58! GOTO 860 
740 PRINT "in a crawlHay.";E=6l!G0T0 8 
60 

750 PRINT "in a crattlHay.";lt=60:60T0 8 
60 

760 GOTO 580 

770 PRINT "in a lounge. ":E=64:60T0 860 
780 PRINT JJ!tl=63i80T0 860 
790 PRINT "in the entrance hall.'iGOTO 

860 
800 DIK A$(58tSA),A(58),B(12),B((39tSB 
),C«(7tSC),D(39),H$(58tSH),I(58l,Z$(SA 
),J$(50),A1$(50),N$(50),A9«(50> 
802 DIN A2((50),E«(2S),Dt(2SI,Dlt(25), 
H(7),R«(50),6(9),««(50) 
805 FOR A=l TO 7«SC:C»(A,A)=" "jNEXT A 
810 FOR A=l TO 58:READ Z$,Z:A(A)=Z;A«I 
AtSA-SA+l,AtSA)=" 

":A$(A«SA-SAH,A«SA)=Z(!NEn A 
812 H(=At 

814 FOR A=l TO 39!READ Z»:B$(A»SB-SB+1 
,AISBI=" "!B«(AtSB-SB+l,AtSB)=Z* 
;NEn A 

815 FOR A=13 TO 39JREAD Z!D(A)=Z:NEXT 

A 

816 FOR fl=l TO 58:I(A)=0 

817 IF A<=12 THEN B(A)=0 

818 IF A(=9 THEN 6(A)=0 

819 NEXT A 

820 A=l!6=l;FL=9!TN=-2iJ«="in a hallxa 
y.";N$='in an office." 

830 N=0:H=0:E=0:S=O!U=0:D=0iY=0i6RAPHI 
CS OiPRINT "You're "jilF DK=0 AND TN>2 
4 THEN DT=1 
840 IF DTOl THEN 140 
850 GRAPHICS 0; PRINT CHR$ (253); " POWER 
FAILURE ! It's too dark to see! "!DT=2: 
GOTO 1140 

860 PRINT " Floor "jFLi" Soie exits 
are; " 
870 FOR B=l TO 12:B(B)=0!NEXT B 
880 IF NOO THEN PRINT " tlest"i!B(ll=N 
!B(2)=H 

890 IF A=41 AND FR=0 THEN 930 
900 IF NOO THEN PRINT ' North") :B(3) = 
N:B(4)=N 

910 IF A=16 AND DP=0 THEN 960 
920 IF EOO THEN PRINT ' East"):B(5l=E 
iB(6l=E 

930 IF SOO THEN PRINT " South") !B(7)= 
SiB(8)=S 

940 IF UOO THEN PRINT " Up"):B(9)=U;B 
(10)=U 



950 IF DOO THEN PRINT " Do*n")!B(ll) = 

D:B(12)=D 

960 PRINT :PRINT 

970 FOR B=l TO 58! IF A=ABS(A(Bn THEN 

C=C+1:G0T0 990 

980 NEXT BiPRINT iBOTO 1010 

990 IF C<2 THEM PRINT " Things you see 

here !" 

1000 PRINT " "jA»(BISA-SA+l,B«SA)!60TO 

980 

1010 IF A=37 AND FR=l THEN PRINT "You 
forgot you were naked. 'iPRINT 'You blu 
sh and run out. "sAMl! GOTO 2890 
1020 IF G=l THEN PRINT "You awaken on 
the 9th floor of a strange buildi 
ng, obviously a kidnap' 
1025 IF G=l THEN PRINT "victii. You a 
re alone at the loient and lust escap 
e froi the building," 
1027 IF 6=1 THEN PRINT "floor by floor 
."!G=0 

1030 IF A=7 THEN PRINT "You see a seal 
1 ledge outside the Nindow' 
1035 IF A=7 AND KY=0 THEN PRINT "and a 

single key on a key chain there" 
1040 IF RS=2 THEN IF A=64 OR A=65 THEN 

PRINT "Rope is stretched across quick 
sand." 

1050 IF A=33 THEN PRINT "There is a wi 
de, long ledge outside the Hindott." 
1060 IF A=56 AND JK=0 THEN PRINT "Labe 
Is on bottles: "!PRINT " Solution: An 
tidote":PRINT " Fluid: Undecipherabl 
e' 

1070 IF A=58 THEN PRINT "A drooling al 
ligator blocks your way east. He has 

the retains of a kid-" 

1075 IF A=58 THEN PRINT "napper in his 

louth. You catch a gliipse of a 
staircase past the alligator." 
1080 IF A064 OR RS>=2 THEN 1090 
1082 PRINT "A huge bog of quicksand bl 
ocks your way east. The front entran 
ce is there,") 
1084 PRINT "your way to safety. There 

is a large hook on the other side and 

a tent stake on this side." 

1090 IF A=59 THEN PRINT "There is a tr 

ap door above you." 

1100 IF A=61 AND R1=0 THEN PRINT "Thro 

ugh the trap door you see a long coil 

ed rope on the floor below.' 

1110 IF A=10 AND Cl=l AND CF=0 THEN PR 

INT "A flashlight is there." 

1120 IF A=10 AND Cl=l AND CT=0 THEN PR 

INT "Electrical tape is there.' 

1130 GOSUB 2650 

1140 TRAP 9000:C=0:TH=TNH!PRINT :PRIN 

T " CONNAND "j: INPUT A9$:IF DT=2 THEN 3 

000 

1145 A2«="":F0R T=l TO LEN(A9»)!lF A9$ 

(T,T)<>" ' THEN A2»(LEN(A2»)*-1)=A9»(T, 

T):NEXT T 

1148 Alt=A2* 

1149 IF LENIAIIXSB THEN AlKLENIAlt)^ 
1)=" ":60T0 1149 
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1150 IF A9«="LQ0K" THEN 830 
1160 IF fl9«='JUI1P" THEN 2050 
1170 IF ft9»='SHIH" THEN 2320 
1180 IF A9»="«ftIT" THEN 2490 
1190 PRINT :FOR BM TO 12: IF Al$=Bt(B» 
SB-SBH,BtSB) THEN 1210 
1200 NEXT B:6DTD 1230 
1210 IF B(B)<>0 THEN ft=B(B):BOTO 830 
1220 PRINT 'You can't go that xay/iGD 
TO 1140 

1230 IF fl9$<>"I" AND A9$<>"INVENT0RY" 
THEN 1260 

1240 PRINT ' You are carrying ; "iFOR K=l 
TO 7iPRINT C«(K»SC-SC+l,KtSC) 
1250 NEXT K:60T0 1140 
1260 FOR B=13 TO 39: IF Al»-B$(BtSB-SB+ 
l,BtSB) THEN 1280 

1270 NEXT B:PRINT 'Don't knoN tthal "jC 
HR((34);A9«;CHR$(34);' leans. ':BOTO 11 
40 

1280 D«=""iIF LEN(A9$)>=LEN(A2$)+2 THE 
N D$=A9«(LEN(A2«)t2):IF LEN(0«)>=3 THE 
N E$=D«(LEN(D$)-2,LEN(D$)):G0T0 1287 

1285 IF LEN(D$)<3 THEN D«(LEN<D«)+1)=' 
■:GOTO 1285 

1286 Et'Df 

1287 REN 

1290 IF D(B)<>1 THEN 1500 

1300 IF D«(1,3)<>'FLA" AND D$(1,3)<>"T 

AP" AND AOlO THEN 1340 

1310 IF A=10 AND C1=0 THEN PRINT "Cabi 

net is locked. "iSOTO 2890 

1320 IF D«(1,3I<>"FLA" OR CFOO THEN 1 

330 

1323 J=56:A$(J»SA-SA+1,J»SA)="FLASHLIG 

NT ^HKJtSA-GA+l.JtSAIsAK 

J»SA-SAH,J»SA)!A(J)=10!CF=1 

1330 IF D»(1,3)="ELE" OR CTOO THEN 13 

40 

1333 J=57iA»(JtSA-SA+l,Jt8A)="ELECTRIC 

AL TAPE ■!H»(J«SA-SA+1,J»8A)=A«< 

JtSA-SAfl,JtSA);AIJ)=10;CT=l 

1340 IF A=7 AND KY=0 AND E«="KEY" AND 

1(4)01 THEN PRINT "Your an is too 5h 

ort to reach it.";BOTO 2890 

1350 IF A07 OR KYOO OR EIO'KEY" THE 

N 1360 

1353 J=5B;A«(JtSA-SA+l,JtSA)="KEY 

■.■H«(J»SA-SAM,J«SA)=A«( 
JJSA-SA+l,J»SA)iA(J)=7:I(58)=l!KY=l 
1360 IF A063 OR E$<>"KEY" THEN 1370 
1363 PRINT 'Ne all knoM pianos have ke 
y5."!J=56!A«(JISA-SA+l,JISA)="KEY 

1365 H« (J«SA-SA+1 , J»SA) =A» ( J tSA-SA+l , J 
tSA)!A(J)=63!l(56)=l 
1370 IF (A=14 AND E»="PIR" AND PF=0) 
R (A=17 AND E»="DOB") OR (A=58 AND E»= 
■ALI") THEN 2940 

1380 IF A035 OR (D$(1,3)<>"KID" AND D 
$(1,3)<>"D0L' AND D»(1,3)<>"NDN") OR I 
(27)00 THEN 1390 

1383 PRINT "You get too close to hii. 
He juips upand strangles you.'sGOTO 2 



1390 IF A035 OR (D«(1,3)<>"KID" AND D 
»(1,3)<>'D0L" AND D»{l,3)<>'hON') THEN 
1400 

1393 PRINT "Kidnapper sees your gun an 
d freezes. You grab a dollar. '!A$(56t 
SA-SA+1,56«SA)='D0LLAR 

N 

139S H((56»SA-SAM,S6tSA)=At(56tSA-SA^ 

l,56tSA)!A(56)=35!PH=l;E«='LAR" 

1400 IF I(46)01 OR 0«(1,3)<>"NAT' OR 

fl058 THEN 1410 

1403 RI="CUP OF NATER":K3=48!G0SUB 250 

0!H$(48»SA-SA+l,48tSfl)='CUP OF NATER 

":I(57)=l!B0T0 2880 
1410 REH 

1420 FOR J=l TO 58! IF D»(l,3)=A«(JtSA- 
SAM,JtSA-GA+3) AND A=ABS(A(J)) THEN 1 
440 

1430 NEXT JiPRINT "There's no "iD$i" h 
ere."! GOTO 1140 

1440 IF A(J)<0 THEN PRINT "Be reasonab 
le now. That's iipossible."!60T0 1140 
1450 IF D«(l,3)O"B00" THEN 1480 
1460 PRINT "Title of book! Hon to "pi 
F A=47 THEN PRINT "Swia" 
1470 IF A=64 THEN PRINT "Nalk a tightr 
ope' 

1480 PRINT "OK!"iFOR K=l TO 7: IF C»(Kt 
SC-SC+l,KtSC)0" 
" THEN 1490 

1482 C$ (KJSC-SC+1 , K«SC)=A* ( JtSA-SA^l , J 
tSA)iGOSUB 2810:H(K)=J:A$(JtSA-SAH,Jt 
SA)=" 

1485 A(J)=0:60T0 2890 
1490 NEXT K 

1500 IF D(B)<>2 THEN 1610 
1510 FOR J=l TO 7! IF D»(l,3)=C$(JtSC-S 
C+l,J«SC-SC+3) THEN 1530 
1520 NEXT J!PRINT "You're not carrying 
it.'iGOTO 1140 
1530 FOR K=l TO 58: IF A»(K»SA-SA+l,KtS 
A)<>" " THEN 1540 



1532 A$(KtSA-SAM,K»SA)=Ct(Jt8A-SAH,J 

tSA);A(K)=A:H(J)=0:GOTO 1550 

1540 NEXT K 

1550 PRINT "OK!"!FOR Kl=l TO 58!lF C»( 

J»8C-SC+l,J«SC)<>H»(KltSC-SC+l,KltSC) 

THEN 1560 

1552 C»(J«8C-SC+l,JtSC)=" 

"!60TO 1570 
1560 NEXT Kl 

1570 IF A014 OR D$(1,3)<>"SLE" THEN 1 
580 

1572 PRINT "You drop pill in aquariui. 
■!PF=liK3=15:H«="SLEEPIN6 PIRANHA"i60S 
UB 2540! GOTO 2890 

1580 IF A016 OR DPOO OR D«(1,5)<>"SL 
E" THEN 1590 

1582 PRINT "Piranha devours Doberian p 
incher, thendies of overeating. "iDP=li 
K3=15 

1585 I1$="DEAD PIRANHA "!GOSUB 
2540:Kl=15iA(57)=-16!A«(56»SAil,57tSA 
)="EATEN DOBERNAN 

1587 H»(56»SH+l,57tSH)=A$(56»SA+l,57IS 
A)!80T0 1600 

1590 IF A032 OR E$0"LAR" THEN 1600 
1592 A$(56»SA+1,57«SA)="L0N8 STRING 

"!H»(56»SH+l,57tSA)=A$(56«SA+l 
,57tSA)!A(57)=32iKl=57!K3=56 
1595 N»=""!GOSUB 2540 
1600 I(Kl)cAi80T0 2890 
1610 IF D(B)03 THEN 1810 
1620 IF A=16 AND E«="HAN" OR A=58 AND 
E$="TOR" THEN 2940 

1630 IF AMI AND E$="IRE" OR A=64 AND 
E»="AND" THEN 2970 

1640 IF A=25 AND E«="IRS" AND SC=0 THE 
N PRINT "Step is lissing! You fell do 
t»n the stairs. "iGOTO 2970 
1650 IF E»="OPE" AND Rl=l AND A=17 THE 
N A=18!R1=0!60T0 3030 

continued on next page 
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liiO IF E$='OPE' AND Rl=l AND A=il THE 

N A=62;R1=0:SDTD 830 

1470 IF E$="ANT" AND PT=1 AND ft=59 THE 

N A=60;G0TD 830 

1680 IF E$="ANT" AND PT=1 AND A=iO THE 

N A=59!6OT0 830 

1490 IF E«="OPE" AND A=45 THEN A=4A!60 

TO 830 

1700 IF E*="QPE' AND A=64 AND RS=2 AND 

BR=1 THEN A=45:80T0 830 
1710 IF E«="OPE" AND A=64 AND RS=2 THE 
N PRINT 'You don't knoM hoH to italk a 
tightrope") ;60T0 2970 
1720 IF E«='DO«' THEN IF A=34 OR A=34 
THEN A=A-l!S0TO 830 

1730 IF E$="D6E" AND A=7 THEN PRINT "L 
edge breaks! "sGOTO 2970 
17A0 IF E«='DBE" THEN IF A=33 OR A=35 
THEN A=A+1:60TQ 830 
1750 IF E«="IRS" THEN IF A=25 OR A=44 
OR A=62 THEN A=An!60T0 3030 
1740 IF EIO'QOR" OR (A024 AND A043 
AND AO30 AND fi<>45) OR B((A/10-INT(A/ 
10))tlO)<>0 THEN 1770 
1762 PRINT "The door's locked. "iSOTO 2 
890 

1770 IF E«="OOR" THEN IF A=24 OR A=43 
OR A=30 OR A=i5 THEN A=A+1:60T0 830 
1780 IF E$="ODR" AND A=55 THEN IF SD=1 

OR JK=1 THEN A=57!6QT0 830 
1790 IF E«="O0R" AND A=55 THEN PRINT " 
It's stuck! You're not strong enough 
to open it!":BOTO 2890 
1800 IF E«="IDE" AND A=57 THEN PRINT " 
You slide through hole in floor. ':A=58 
!6DTC 3030 

1810 IF A09 OR (E«<>"OOR" AND E»<>"AI 
R") OR (A<>I(3)) THEN 1820 
1812 PRINT "You step on chair and just 

lanage to reach the trap door-'iA^ll 
iSOTO 2890 

1820 IF A=9 THEN IF E»="OOR" OR E$="AI 
R" THEN PRINT "You can't reach it.'iOO 
TO 2890 

1830 IF D(B)<>4 THEN 1900 
1840 IF E«='OOR" AND A=55 AND JK=0 THE 
N 1790 

1850 IF E$="0OR" AND A=55 THEN 80SUB 2 
830:6!l)=l!SD=l:6QT0 2880 

1840 IF E$="00R" THEN IF A=43 OR A=24 
OR A=65 THEN IF I(54)=l OR AM3 AND I( 
42) =1 THEN 1862 

1841 6DT0 1870 

1842 60SUB 2830;G((A/iO-INT(A/10))tlO) 
=1:PRIHT "Door's open";60T0 2890 
1870 IF E$="00R" THEN IF A=43 OR A=24 
OR A=45 THEN PRINT 'You need a key'iSO 
TO 2890 

1880 IF A=10 AND C1=0 AND I(S8)=1 THEN 
PRINT 'Cabinet's open"!Cl=li60T0 2890 
1890 IF I(39)=l AND E«="LLA" THEN K3=3 
9:R«="0PEN POPPIN'S UMBRELLA" 16DSUB 25 
00:UH=l!6DT0 2880 
1900 IF D(B)<>5 THEN 1990 



1910 IF E$="ITI" AND A=6 THEN PRINT "I 

t says: Natch out for live ones.": GOT 

2890 

1920 IF E«="ITI" AND A=53 THEN PRINT ' 

GRAFFITI; Do you have a split 

personality?": GOTO 2890 

1930 IF E»="OTE" THEN IF II1)=A OR 1(1 

)=1 OR A=2 AND I(1)=0 THEN PRINT "Note 

says: 'Iiportant TV prograi on":GOT 
1140 

1940 IF E$="I6N" AND A=32 THEN PRINT " 
Sign: String costs »1.00°:60T0 2890 
1950 IF E«="TV" AND A=5 THEN PRINT "Bu 
lletin: "SPRINT "Poner will be shut oH 

at •idnight..,"sG0T0 2890 
1960 IF E«="OCK" AND A=5 THEN PRINT "T 
lie: »i;TI=INT(TM/2):lF Tl>12 THEN PR 
INT "Past iiidnight":60TG 2890 
1970 IF E$="OCK" AND A=5 THEN PRINT TI 
)" P.I1.':60T0 2890 

1980 IF E$="OOK" THEN IF I(38)=l OR 11 
52)=1 THEN BR=1:G0T0 2880 
1990 IF D(B)<>4 THEN 2110 
2000 IF E$<>"TON" THEN 2480 
2010 IF A=9 AND EF=1 THEN PRINT "Eleva 
tor goes dot»n!";A=13:B0T0 3030 
2020 IF A042 OR FROO THEN 2030 
2022 PRINT "Sprinkler turned on. Fire 

out.":PRINT "But your clothes are ver 
y net. You" 

2025 PRINT "take thei off. You are no 
M naked. ":FR=l:A<(S4tSA+l,57tSA)="MET 
CLOTHES 

2028 H$(54tSAM,57tSH)=At(54(SAM,57tS 
A):A(57)=-42:60T0 2910 
2030 IF A=44 AND SP=0 THEN PRINT "Clic 
k!":SP=l:60T0 2890 

2040 PRINT "Nothing happens.": GOTO 289 


2050 IF A=40 OR A=41 OR A=44 THEN 2940 
2040 IF A=34 OR A=36 THEN IF I(25)=l A 
ND B0=2 THEN PRINT "Balloon carries yo 
u donn one fIoor.":A=43:G0T0 3030 
2070 IF A=34 OR A=34 THEN 2960 
2080 IF I(39)=l AND UH=1 THEN PRINT "Y 
ou float doNn one floor. ':A=52: GOTO 30 
30 

2090 IF I(39)=l THEN PRINT "Uibrella u 
asn't open!":GOTO 2960 
2100 GOTO 2040 
2110 IF D(B)<>9 THEN 2190 
2120 IF A=ll AND Et='RES" AND TH<23 TH 
EN PRINT "You're electrocuted! ';60T0 2 
970 
2130 IF AOU OR E$<>"RES" OR 1(57)01 

THEN 2140 
2132 EF=1:A»(11»SA+1,12»SA)="TAPED NIR 
ES '':H$(lUSHil,12tSH)=A$(ll 
»SAH,12tSA):G0T0 2880 
2140 IF A=ll AND E$="RES" THEN PRINT " 
Nires fall apart again. ":GOTO 2890 
2150 IF (E$<>"OON" AND E$<>"ING") OR ( 
BOOl OR 1(25)01 OR I(57)01) THEN 21 
40 

2152 K3=57:R«='"sG0SUB 2500:K3=25sR«=" 
LARGE TIED BALLOON ":GOSUB 2500:80= 
2; GOTO 2880 



2140 IF E$O"0PE" THEN 2190 

2170 IF A044 OR I(54)01 THEN 2180 

2172 K3=54:R»=":60SUB 2500:A«(53«SA+1 

,54»SA)='R0PE TIED TO STAKE ":H$(53 

tSHM,S4tSH)=A$(53tSAM,S4tSA) 

2175 A(54)=-44:RS=1:G0T0 2880 

2180 IF (A017 OR 1(14)01) THEM 2190 

2182 PRINT "Rope tied to de5k":K3=14!R 

«=""!60SUB 2500iA$(7>SA+l,B»SA)="R0PE 

HANGING OUT NIND0":R1=1 

2185 Ht(7tSA+l,8«SA)=A»(7tSAtl,8ISA) :A 

(8)=-17:G0T0 2890 

2190 IF D(B)<>10 THEN 2210 

2195 IF A>=13 OR E$<>"GHT" OR 1(54)01 

THEN 2210 
2200 K3=56:R«="L1T FLASHLIGHT":60SUB 2 
500:H$(55»SA+1,54»SA)='LIT FLASHLIGHT 

':DK=1:G0T0 2880 
2210 IF D(B)<>11 THEN 2230 
2220 IF A019 OR E$<>"KEY" OR 1(21)01 

THEN 2230 
2222 A$(55tSAM,56tSA)="CRUDE KEY 

":H$(55»SH+l,56tSH)=A$(55«SA+l 
,56ISA):A(56)=19:60T0 2880 
2230 IF D(B)012 THEN 2250 
2240 IF (A025 OR I(19)01) OR (I(20)< 
>1 AND AOI(20)) THEN 2250 
2242 IF E«="TEP" OR E«="IRS" THEN PRIN 
T "Stair's fixed':Sl=l:R«="":K3=20s60S 
UB 2500:«="":GOSUB 2540:G0T0 2890 
2250 IF D(B)013 THEN 2270 
2260 IF (1(25)01) OR (I(24)01 AND A< 
>I(24)) THEN 2270 

2242 IF E»="OON" THEN K3=25:R»="LAR6E 
INFLATED BALLOON ":GOSUB 2S00!H»(24tSH+ 
l,25tSA)="LARBE INFLATED BALLOON" 
2245 BO^lsGOTO 2880 
2270 IF D(B)014 THEN 2300 
2280 IF E«='6UM" OR E««'PER" THEN IF I 
(27) =1 AND A=35 THEN PRINT "Gun had bl 
anks!":PRINT 'Kidnapper shoots yDu!";G 
OTO 2970 

2290 IF E»="6UN" OR E$="PER' THEN IF I 
(27)=1 THEN PRINT "Gun lisf ires.': GOTO 

2890 

2300 IF D(B)015 THEN 2340 
2310 IF FROl OR 1(32)01 OR I(33)Ol 
OR EIO'HES' THEN 2320 
2312 PRINT 'You have knitted a fine su 
it and are wearing it.':FR=2;60TO 289 


2320 IF SP=0 THEN 2480 

2330 IF A=49 THEN AMSsSOTO 830 

2340 IF A=48 AND BR=0 THEN PRINT 'You 

don't knoM hoM to sm1i!':&0T0 2970 

2350 IF A=48 THEN A=49;60T0 2880 

2340 IF D(B)Ot8 THEN 2400 

2370 IF E$='I0N" AND I(44)=l AND JK=1 

THEN PRINT 'You've changed back!':JK>0 

:GOTO 2890 

2380 IF E$="ION" AND I(44)=l THEN 2880 

2390 IF E«='UID' AND I(45)=l THEN PRIN 

T 'You've changed into Nr. Hyde!';PRIN 

T 'You are very strong! ■:JK=1:60T0 289 



2400 IF D(B)<>19 THEN 2420 
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2410 IF fl<>59 OR E»<>"TER" OR 1(57)01 

THEN 2A20 

2412 PRINT "Plant grows to ceiling. "ifl 
»(48tSA+l,49ISfl)='HU6E PLANT 

' : HI (4e«SAM , 49tSA) =A« l48tSAn , 49tSA 
) 

2415 PT=1:60T0 2890 
2420 IF D(B)<>20 THEN 2450 
2430 IF E«<>"UTE' OR A041 OR 1(50)01 

OR RlOO THEN 2440 

2432 PRINT "Indian rope rises up to yo 
u'iRl=l:A«(55»SA+l,56tSA)="END OF ROPE 

■ 

2435 H$(5StSH^l,56ISA)=A((55«SAU,56tS 
A);A(54)=-61;60T0 2890 
2440 IF E$="ANO" AND A=63 THEN PRINT " 
LiberacB you're notl'sGOTO 2890 
2450 IF D(B)<>21 THEN 2480 
2460 IF E«="OPE" AND 0=64 AND RS=0 THE 
N PRINT "Tie the other end first. "iOOT 
2890 

2470 IF E»<>"OPE" OR A064 OR RSOl TH 
EN 2480 

2472 PRINT "Hook on rope catches other 
hook near entrance and stretches tig 
ht"!RS=2!K3=54!H»=""!G0SUB 2540!60TO 2 
890 

2480 PRINT "You can't do that noH."!60 
TO 1140 
2490 PRINT "3 hours pass."!T«=TN+5!60T 

1140 

2500 FOR K2=l TO 7: IF C$(K2»SC-SC+1,K2 
tSC)OH1(K3tSH-SH+l,K3«SH) THEN 2510 
2502 C«(K2»SC-SC+1,K2»SC)=" 

"!C»(K2»SC-SC+1,K2»SC)=R«!6 
OSUB 2520: RETURN 
2510 NEXT K2SRETURN 
2520 IF R$="" THEN I(K3)=0 
2530 RETURN 

2540 FOR K2=l TO 50: IF A«(K2»SA-SA+1,K 
2»SA)OH«(K3tSH-SH+l,K3ISH) THEN 2550 
2542 A«(K2«SA-SA+1,K2»SA)=" 

■!A$(K2tSA-SA+l,K2tSA)=«« 
2545 H« (K3ISH-SH+1 , K3«SH) =A« (K2»SA-SA+ 
1,K2<SA):A(K2)=A(K2)»(N«>"");I(K3)=I( 
K3)»(N«<>"")!RETURN 
2550 NEXT K2iRETURN 
2560 eOTO 2890 
2570 PRINT "There is a path east, but 

1 vicious, snarling Doberian blocks t 
he Nay. "I RETURN 

2580 PRINT "Aquariui full of piranha f 
ish."! RETURN 

2590 PRINT "The staircase is very rott 
en and one Mooden step is ■i5Sing.";R 



ETURN 

2600 PRINT "Kidnapper counting loney. 

He doesn't see you yet.": RETURN 
2610 PRINT "Kidnapper is scared. "sRETU 
RN 
2620 PRINT "There is a path north, but 

i raging fire blocks your nay.'iRET 
URN 

2630 PRINT "A large SHiiiing pool span 
s across theentire root, dividing it i 
n half. It is very deep and eipty" 
2632 RETURN 

2640 PRINT "SniMing pool full of wate 
r."!RETURN 

2650 IF A=16 AND DP=0 THEN 2570 
2660 IF A=14 AND PF=0 THEN 2580 
2670 IF A=25 AND S1=0 THEN 2590 
2680 IF A=35 AND PI1=0 THEN 2600 
2690 IF A=35 AND PN=1 THEN 2610 
2700 IF A=41 AND FR=0 THEN 2620 
2710 IF A=48 AND SP=:0 THEN 2630 
2720 IF A=48 AND SP=1 THEN 2640 
2730 RETURN 

2740 DATA PAPER NOTE, 2, DESK, -2, CHAIR, 2 
,L0N6 BR00M,3,TV SET, -5,CL0CK,-5,BRAFF 
ITI ON WALL, -6, OPEN NINDQN,-7 
2745 DATA TRAP DOOR IN CEILING, -9, DONN 

BUTT0N,-9, CABINET, -10, ENDS OF T«0 LIV 
E NIRES,-11,AQUARIUM,-H,R0PE,15 
2750 DATA SLEEPING PILL, 16, OPEN KINDON 
,-17, DESK, -17, KEY MAKING HACHINE,-19,S 
UPER GLUE,20,tl00DEN STAIR STEP, 20 
2755 DATA THICK COPPER SHEET, 23, LOCKED 

D0OR,-24,NOODEN STAIRS, -25, TANK OF HE 
LIUN GAS,28, LARGE DEFLATED BALLOON, 29 
2760 DATA LOCKED DOOR, -30, GUN, 30, SIGN 
ON NALL,-32,STRING VENDING MACHINE, -32 
(OPEN WIND0N,-33, LOCKED DOOR, -43 
2765 DATA BALL OF YARN, 39, KNITTING NEE 
DLES,40,PUSH BUTTON ON NALL,-42,SE)(Y 
FFICE NORKERS, -37, STAIRS, -44 
2770 DATA PUSH BUTTON ON HALL, -46, BOOK 
,47, MARY POPPIN'S UMBRELLA, 50, OPEN WIN 
D0N,-51, GRAFFITI ON NALL,-53 
2775 DATA SMALL KEY, 37, STEEL DOOR, -55, 
VIAL OF YELLON SOLUTION, 56, JAR OF FLUI 
D,56, CHILD'S SLIDE,-57 
2780 DATA NATER COOLER, -58, PAPER CUP, 5 
8,SMALL-SI2ED PLANT, -59, FLUTE, 61, STAIR 
S,-62,B00K,64,PIAN0,-63 
2785 DATA LONG ROPE, 63, FRONT DOOR, -65 
2788 DATA ,0,,0,,0 

2790 DATA NEST, N,NORTH,N,EAST,E, SOUTH, 
S, UP, U,DONN,D, GET, TAKE, DROP, PUT, GIVE, P 
AY,CLIMB,SO,ENTER,OPEN,READ,CHECK 



2795 DATA NATCH,PRESS,PUSH,TAPE,TIE,LI 

GHT,MAKE,6LUE, INFLATE, SHOOT, KNIT, DRINK 

,POUR,PLAY,THRON 

2800 DATA 1,1,2,2,2,2,3,3,3,4,5,5,5,6, 

6,9,9,10,11,12,13,14,15,18,19,20,21 

2810 FOR K4=l TO 58: IF A$(JtSA-SAM,Jt 

SA)=H$(K4tSH-SH+l,K4»SH) THEN I(K4)=1: 

K4=60 

2820 NEXT K4:RETURN 

2830 IF A=24 THEN X=22!GOT0 2870 

2840 IF A=43 THEN X=31:60T0 2870 

2850 IF A=55 THEN X=43:80T0 2870 

2860 X=55 

2870 A$(XtSA-SA+l,XtSA)="OPEN DOOR 

": RETURN 
2880 PRINT "OK!" 

2890 IF E$="0OR' AND A=71 THEN PRINT " 
You need a key." 

2900 PRINT :PRINT :PRINT " Hit any key ' 
iCHR»(253);:P0KE 764,255 
2902 IF PEEK(764)=255 THEN 2902 
2904 POKE 764,255;G0T0 830 
2910 GOTO 2900 

2920 PRINT "OUT. You've lade it!" 
2930 END 

2940 PRINT "AAHHHHHHHHHHHHHHHHHH...." 
2950 PRINT 'You die a horrible and gri 
zzly death, your body torn to shreds." 
:60T0 2980 

2960 PRINT "NoM you look like a pancak 
el" 

2970 PRINT "You seei to have gotten" ;P 
RINT ■ yourself killedl"; 
2980 PRINT :PRINT "To try again, you'l 
1 have a start overfroi the 9th floor. 

I 

2990 END 

3000 IF LEN(A9«)<5 THEN 3010 

3001 IF A9«(1,5)="LIGHT" THEN 1145 
3010 PRINT "You can't see where you're 

going... Ooops ! Sorry, you fell an 
d broke yourneck!" 
3020 GOTO 2970 
3030 I(38)=0:G(1)=0:IF JK=1 THEN PRINT 

'You forgot the antidote! Fluid poiso 
n5you.":60T0 2970 

3040 BR=0:FL=FL-1:PRINT "You lade it d 
OMn to the next floor, but you had t 
drop anything you were carrying." 
3050 FOR 6=1 TO 7:C$(G»SC-SC+l,6tSC)=" 
■:NEXT 6:F0R 6=5 
6 TO 58:I(G)=0:NEXT 6 
3060 GOTO 2910 
9000 PRINT 'Pardon ie?":60T0 1140 ^ 
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Take the fat off BASIC and turn it into 
swift, trim, IVIachine Language... 




...without any sweat from you. 

INTRODUCING THE HAYDEN APPLESOFT COMPILER 

For only $175.00 



You can cut the fat from BASIC with the 
HAYDEN APPLESOFT COMPILER, the 
first true compiler available for the Apple II 
computer. This multi-pass compiler allows 
your BASIC programs to run up to ten 
times faster in Machine Language — faster 
than your Apple II can normally interpret 
Applesoft BASIC. 

The HAYDEN COMPILER FEATURES: 

* Runs standard Applesoft BASIC 
programs up to ten times faster. 

* Seventeen-pass compiler produces true 
machine code. 

* Compiles code at user specified 
address. 

* Requires only Applesoft in ROM and 
one disl< drive. 

* Handles Hi-Res graphics and shape 
tables. 

* Arithmetic completed for faster 
operation. 

* Allows multiple programs to reside in 
memory at the same time. 

* Works in a single or multiple disk 
environment or with hard disk. 

* At the end of compilation, the compiler 
provides a detailed analysis of the 
structure. 



System Requirements 

A 48K Apple II Plus or Apple II with 

Applesoft in ROM. 

The Autostart ROM chip and at least 

one disk drive. 

Systems equipped with language 

system or Microsoft RAMCard. 

Introductory price for our readers 
Save $25 Limited time only* 



$175.00 



The HAYDEN APPLESOFT COMPILER is a 
product of the Hayden Book Company, Inc. 

*offer expires August 15, 1981 
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6 5outh street Milford NH 03055 
For Orders Only 603-673-0585 
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ENHBAS 

FROM THE CORNSOFT GROUP 



Announcing the nnost important utility ever 
introduced for the TRS-80™ Model I and Model 
III. 

ENHBAS^'is an Enhanced BASIC extension 
module, which loads at the top of BASIC, 
adding many commands and background 
tasks. Over 30 new commands added to your 
BASIC: 

SORT— Multikeying, multitagging array 
sort. Sort thousands of items in mere 
seconds, all with one command! 

JNAME— Use line labels along with line 
numbers in branching statement, as in 
Assembly Language, using the ENHBAS 
commands GTO and CSUB (special GOTO 
and GOSUB). How many times have you 
wanted to use variables to reference line 
numbers? Now you can! GTO and CSUB 
allow variable expressions as operands, such 
as in GTO X + 40. 

WHILE/WEND— New, structured 
programming loop construct. Makes for more 
logical program flow (less GOTOs). 

EXEC/EVAL— Two new, extremely powerful 
functions! EVAL evaluates an algebraic 
expression in string form. With EVAL you can 
manipulate complex functions in string form, 
and then evaluate them. EXEC executes a 
string expression as if it were a BASIC 
program line. With EXEC, your computer can 
actually write its own programs and execute 
them. 

CALL— Pass control to Machine Language 
subroutines at any address, passing 
parameters both ways. 

CLM/PAGE— Set up automatic page roll- 
over and other line printer functions from 
BASIC. 

All these and many more! 

In addition to the above commands, Model 
I ENHBAS contains vector graphics and 
drawing commands. ENHBAS includes many 
background utilities (Model I version); User- 
definable cursor, key click, two-tone beep on 
error, automatic lower case, automatic 
debounce, short-entry commands (shift-letter 
prints command), real control keys, one letter 
commands, and formatted LISTings. 



16K, S-80 Cassette, 

Model I or Model III 

32K, S-80 Disk 

Model I or Model III $59.95 



.$59.95 



Select 



loru 



A ^Duth Slr««t Milford NH 030S& 
Fo( OftJ«f» Only 803 673 0585 




by Roy Groth 




Wish you were a better typist, 
but don't want to take (or pay for) 
a class? Teach yourself to type 
with the aid of your micro- 
computer. With TYPING 
TUTOR you will be quizzed and 
graded, but you set the pace at 
which you learn. TYPING 
TUTOR is a set of programs that 
lets you become as good a typist as 
you wish, allowing you to advance 
from one level to the next when 
you feel comfortable with your 
skills. 

Let "hunt and peck" slip into 
the past, teach yourself speed and 
accuracy on the keyboard with 
TYPING TUTOR. 



S-80/16K/Cassette/ 



$15.95 
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Dear SoftSide Subscriber: 



Thank you for your ongoing commitment to SoftSide Magazine. I believe 
that SoftSide subscribers are a special group who are more actively 
involved than most readerships in computing, its challenges, headaches, 
and triumphs. 

I've got a commitment to you too. It's my responsibility to bring you 
the best software available and deliver it to you every month. As owner 
of TSE/Hardside and SoftSide, publisher of Ramware and owner of Ramworks, 
which covers the retail end, I have a unique vantage point from which 
I've observed the development of personal computing. I believe that 
I've learned some important lessons that will benefit you as a SoftSide 
subscriber. 

The most obvious is that the cost of software is soaring, due mainly to 
such factors as promotional and packaging expenses. And, some of the 
major channels of distribution have fallen short of their goals — there 
aren't enough retail outlets that sell a wide variety of titles and it 
is difficult for the computer store owner to be well versed in all of 
the available software packages. Mail order is sometimes slow although 
the number of programs available is growing at a fantastic clip. 

We at SoftSide want to address these problems — enter SoftSide-DV. 

SoftSide on disk has traditionally been a convenience for subscribers 
who preferred to have their typing done for them. SoftSide-DV (Disk 
Version) is an entirely different concept. 

Actually, SoftSide-DV addresses more than the simple cost of software. 
With a subscription, you'll develop your system through your computer 
itself. Frankly, it has the ability to do some things that you can't 
do. The bottom line is this: we want to address both you and your 
computer, according to what each of you does best. 

Besides SoftSide Magazine, you'll get all of the programs in the magazine 
already typed in, plus much more. Here's an idea of the kinds of things 
you can expect from a subscription to SoftSide-DV: 

* Intriguing machine code and hybrid programs (mixed BASIC and 
machine code and/or super graphics) which won't appear in the 
magazine or on cassette, 

* Data base features. Imagine a French-English dictionary or a 
monthly interactive crossword puzzle that keeps track of your 
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score and gives you hints as you need them. Or how about 
a disk-based checkbook maintenance and budgeting program? 

* Conversions of programs for other computers that have appeared in 
past issues of SoftSide. 

* An amazing concept in software: I-$tring interpreters. 
I-$tring's uses are virtually limitless. By exploiting 
interchangeable data bases, you'll be able to create your 
own adventures and dungeons or play along with the ones 
we'll provide. Map out floor plans. Plan your vacations 
with a road map that has the potential to show every route 
in the country. 

* To err is human, to correct, a pain. In the event that bugs 
show up in programs, we'll supply fixes directly in the form 
of an ASCII file ready to merge into the original code with 
little effort. 

* Modular BASIC, a 20K enhancement program (similar to Enhanced 
BASIC) which will add numerous features to your Model I computer. 

SoftSide-DV will change your definition of a magazine forever. It's a 
monthly multi-media adventure and right now a subscription is yours for 
only $99.95. 

Our regular price is $125, but at our special introductory price, you pay 
only $8.33 per month for SoftSide Magazine and a filled- to- the-brim disk. 

We'll calculate the cost of your subscription to SoftSide-DV based on 
the remaining portion of your current subscription (ain't computers 
wonderful?) . Just send us an order along with payment, or use the 
business reply card in this issue and charge it on your MasterCard or 
Visa; be sure to include your card number, expiration date, and your 
signature. 

We're making this special price available to you only until August 15, 1981, 
so order now. I'm looking forward to having you join hundreds of other 
SoftSide-DV subscribers in broadening the creativity of computing. 



y^'imserely yours, ^--«k 
Roger W. Robitaille 



Publisher 

P.S. Remember to act now — this offer expires on August 15, 1981! 

One final note: There will not be a cassette equivalent to SoftSide-DV. 
Some of the things we'll be doing simply cannot be done 
on cassette. 
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by Russell Starkey 

"Magic Paper Calculator" is an 
S-80 program requiring a 16K tape or 
32K disl( system. 

This is a program which will allow 
you to use your computer as a print- 
ing calculator, even if you don't have 
a printer. Well, sort of, anyway. Part 
of the screen display simulates a roll 
of paper tape being fed out of the 
maws of the calculator, and this tape 
can be scrolled up and down at will to 
examine all your calculations. And if 
you do happen to have a printer, you 
can also get a hard-copy printout on 
command. 

In the following instructions, line 
A is the bottom line, line B is the sec- 
ond to the bottom, etc. 

1. The usual symbols are used for 
the four basic functions: + , -, *, and 
/. ENTER may also be used instead 
of -I- . (It's not necessary to use the 
shift key for the -i- and *.) The item 
counter counts the total number of 
function operations. 

2. Pressing S will give a subtotal; T 
will give the total. (The difference is 
that the subtotal is carried into the 
following calculations.) The ac- 
cumulator (ACC) is the sum of all 
totals/subtotals. 

3. Enter the number first, then the 
function to perform. For example, to 
add 4.80 and 1.18 and get a total, 
type: 

4.80 + 1.18 + T 

Or to multiply -17 by 3 and get a 
subtotal, type: 

17-3 * S 

Of course, any number of calcula- 
tions can be strung together without 
having to press S or T. 

4. To square line B, it's not 
necessary to re-enter the number. 
With line A blank, just pressing * and 
then S will do the trick. 

5. Pressing Q will take the square 
root of line B and substitute this 
value on line B. 

6. Pressing N will allow you to add 
a note to line B. 

7. Memory access commands: 

W, followed by a number key from 
1-6, will write line B to the specified 
memory. 

R, followed by a number key from 
1-6, will recall the specified memory 
to line A. 

RA recalls accumulator memory to 
line A. 
50 
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RT recalls accumulated tax 
memory. 
RM recalls RAM left in computer. 

8. Clear commands: 

A clears accumulator, item 
counter, and accumulated tax. 

I clears item. 

E clears entry. 

CM followed by Y (yes) clears 
memory. 

CP followed by Y clears the paper. 

9. The up-arrow and down-arrow 
keys scroll the paper up and down; 
they can be held down for continuous 
movement. 

10. The calculation mode is 
changed by pressing M. The modes 
available are fixed-point through 4, 
financial, and floating-point. 

1 1 . To add tax to line B and give 
the total, press G. If you're in the 
midst of doing calculations, be sure 
to subtotal them before using G. (The 
first time this function is used, you 
will need to enter your tax rate as a 
whole number from 1 to 9.) 

12. Pressing X will exchange lines 
B and C. 

13. To find a percentage of hne B, 
enter the percentage and then press 
P. Pressing P without a preceding 
number will cause the last percentage 
specified to be used in this calcula- 
tion. 

14. To discount (subtract) a 
percentage of line B, enter the 
percentage and then press D. Press- 
ing D without a number will cause the 
last specified value to be used. This 
function can also be used to change 
the sign of Hne B, by entering 200 D. 

15. Pressing H will make a hard 
copy of the data on a printer. 

16. Errors: 

a. To change a memo note, posi- 
tion the note at line B using the up- or 
down-arrow key, press N, and enter 
the new note. 

b. To change a wrong number or 
function, position it at line A and 
enter the correct number and func- 
tion. 

c. A math error will result from 
trying to mulitiply or divide when 
there is no number in line B or if line 
B is a total. 

d. An error message will result if 
you try to divide by zero. 

e. A "Code #" error refers to a 
BASIC error message (see appendix 
B of the Reference Manual). 
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VARIABLES 

A: Number input flag; =0 if input- 
ting two or more numbers in a se- 
quence, otherwise = 1 . 
Al: Temporary variable. 
AA: Length of entered number 
string. 

AF: =0 for cleared memory; = 1 if 
memory is in use. 
AP: String length counter. 
C ( ): Function mode code array: 
Numbers 1-6 designate addition, 
subtraction, multiplication, division, 
subtotal, and total. 
CI ( ): Memory function array. 
C2-C4: String length variables. 
CB: Stores last function. 
CC: Copy of X2 before changed. 
CD: Math pointer. 
CK, CL: Temporary variables. 
CM: Current mode number, 1-6. 
DA, DS, DX: Temporary variables. 
DJ: Math round-off fixer. 
DT: Math total. 
DV: Accumulator memory. 
L ( ): String array to hold notes. 
LI ( ): String array to hold memory 
notes. 

M ( ): Marquee strings. 
N: Number array string. 
N ( ): Number array. 
Nl ( ): Memory number string ar- 
ray. 

NA: Accumulator memory. 
NB: Tax total memory. 
Q: Down-arrow control variable. 
QE: Last error type number. 
QT: Tax rate control flag; = 1 if 
rate has been entered, otherwise 
= 0. 

S: Temporary variable. 
S1-S6: Graphics strings. 
SA: String of number entered. 
SJ: Percent amount. 
SK: Discount amount. 
SN: Prompt message. 
TA: Tax rate. 
X: Temporary variable. 
X2: Array pointer. 
XI: Item counter. 
XL: Maximum array cell used. 
Y: ASCII value of last key pressed. 
Yl: Temporary variable. 
YA, YB: Length of first and second 
sections of marquee. 
YC: Marquee speed control 
variable. 

YD: Marquee section pointer ( = 
or 1). 

YE: Marquee character pointer. 
YL: Marquee print size ( = 30). 



120 REH REV I 67 ) TRS-BO SYSTEMS 16K TAPE & 32K DISK 


660 G0SUB2100 


130 REN 16K CASSETTE SYSTEMS MEMORY SIZE=32500 


680 Y=ASC(K)iIF Y>79 THEN 820 


140 REM BY RUSSELL STARKEY 


700 IF Y>59 THEN 860 ELSE IF Md THEN 4300 ELSE IF Y=13 THEN 3 

320 

720 IF Y<4S THEN 940 


Title page and initialization. 




740 ON Y-44 SOTO 3400 ,1440 ,3560 


160 CLSiPRINT3512,CHR((23)|'MA6IC PAPER CALCULATOR' 


760 IF Y<5S THEN 1460 


ISO CLEAR2200;DEFSTR N,N,L,SiOEFINT A,)(,Y,C,BiDEFDBL D,E,F,GiON 


780 ON Y-57 GOTO 3480 ,3320 


ERROR SOTO 4920 


800 G0T094C 


200 DIM H(ll,N(2S0),L(250),C(250),Nl(6),Ll(6),Cl(6),Sl(12)iA=l!l( 


820 ON Y-79 GOTO 5920 ,4800 ,3880 ,2140 ,3040 


2«li C««2 


840 IF Y=9I THEN 4420 ELSE IF Y=87 THEN 4120 ELSE IF Y=88 THEN 4 


220 I)J=.0000001iDS=liDA=l:SJ="100":SK='5' 


740 ELSE 940 




860 IF Y»65 THEN 3640 ELSE IF Y=67 THEN 3660 ELSE IF Y=69 THEN 1 


Testt if Level II BASIC then control goes to error-handling 


580 


routine, 


880 IF Y>68 THEN 5800 ELSE IF Y=71 THEN 5600 ELSE IF Y=73 THEN 5 

780 

900 IF Y=72 THEN 4460 ELSE IF Y=77 THEN 4040 ELSE IF Y=78 THEN 1 

740 

920 IF Y=79 THEN 1380 


240 CMD'T- 


Fix data error and define starting location of Machine Language 


subroutine. 


940 SN=" INVALID KEY';G0TO640 


260 POKE 16S53,255iDEFUSR0HHABDE 


Clear and set up screen. 


Poke in lachine code for 32K disk systei. 


960 REM 




980 CLS 


280 FOR 1(=-21538 TO -21439:REflD YiPOKEXiYiNEU 


1000 S6=CHR$(188)iSl=STRIN6$(26,CHR$(140l);S2=STRIN6((26,CHR$(13 


300 SOTO 360 


1)):S3=CHR$(191I:S4=CHR»(143) 




1020 FOR X=l TO 12:Al=USR(0)iNEXT 


Resuie froi line S040 and poke in Machine Language code for 16K 


1040 S5=CHR»(131)iPRINTJ2, 'MAGIC PAPER CALCULATOR.'; 


tape systee. 


1060 PRINTS64,S6;S1;S6;; FOR X=12B TO 950 STEP64 :PRINT}X,S3;TAB 




(27)S3iiNEXT 


320 P0KEli553,255;P0KE16526,245iP0KE16527,126 


1080 PRINT»960,S4jSliS4!!PRINT8797,S6iSl)!PRINTJ805,SliS6) 


340 FOR X=32501 TO 32600iREAD YiPOKE l(,Y:NEn 


1100 PRINT8861,S3i:PRINT8925,S3i;PRINTJ895,S3|;PRINTJ959,S3i 




1120 PRINTi989,S2;!PRINT3997,S2|!P0KE16383,131 


Load SI string array ttith lode nates. 


1140 PRINT»863,'USE THE FOLLONING KEYS :'; 




1160 RETURN 


360 FOR X=0 TO 12 :READ SiSl(l()=S:NEn 






Print leiory box on screen. 


Load larquee string array. 






1180 REM 


400 M(0)«" 


1200 PRINT}33,S6;S1;S6| 


420 M(0)=M(0)+'USE THRU 9 . USE + - « / S SUB TOTAL 


1220 PRINT895,"M "iS3)" l"iTAB(60)S3i 


T TOTAL ■ 


1240 PRINT8159,'E ■)S3r 2'jTAB(60)S3) 


440 M(0)=M(0)+"E CLEAR ENTRY N ADD NOTE [ ADVANCE PAPER 


1260 PRINT8223,'H "iS3i' 3"jTAB(60)S3| 


■ 


1280 PRINT82B7,'0 •■,5Z;' 4')TAB(60)S3j 


460 M(0)»M(0)+CHR«(92)+" BACKSPACE PAPER P PERCENT ENTER 


1300 PRINT835I,"R "|S3)" 5"iTAB(60)S3i 


00 


1320 PRINT8415,'Y ";S3)' 6';TAB(60)S3i 


480 M(0)=N(0)+'D DISCOUNT H t STORE NUMBER AND NOTE 


1340 PRINT8481,S5iS2|S5i 


500 M(l)°' N t STORE NUMBER AND NOTE R t RECALL RA RECALL 


1360 RETURN 


ACC RT TAX Q SQUARE ROOT 




520 M(1)=M(1)+"M MODE 6 TAX X EXCHANSE H PRINTER " 


Double-zero input point. 


540 MID'MdI+'I CLEAR ITEM A CLEAR ACC MEM CP CLEAR PAPER 




CM CLEAR MEMORY 


1380 REM 


560 M(1)»M(1)+"BY R. STARKEY 


1400 IF LEN(N(X2))<12 THEN N(X2)-=N(X2l+'O0"!SA=N(X2):G0T0640 


580 M(l)-M(l)+' USE THRU 9 . " 


1420 60T0640 


Find length of larquee strings. 


Nuiber input point. 




1440 IF CM=0 OR CM=5 OR APO50 AND A=0 THEN 640 


600 YA«LEN(M(0))!YB«LEN(M(l))iYL=30 


1460 REH 




1480 IF A=l THEN N(X2)«"iA=0!SN="riAP=50 


Clear and set up screen (continue at 1460). 


1500 AA=LEN(N(X2))iIF AA>9 THEN 660 


620 B0SUB960 iSOSUBllSO iG0T01460 


1520 IF Y=46 THEN AP=AAH 

1540 IF CM06 AND AP+CM=AA THEN 660 




1S60 N(X2)'N(X2)+N:SA=NIX2);60SUB5360 ;G0SUB2120 ;G0T0680 


Key scan point. 6o to the right place for the selected 




function. 


Clear input point. 


640 REH 


1580 REM continued on next page 
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continued from previous page 

1600 C(X2)=0iLa2)=" 

1620 N(X2)=""iSN="CLEflR ENTRY'iBOTO 640 

Call Machine Language subroutine to shift one line up the page. 

1640 REM 

1660 A=l!X=834!y=LEN(N(l(2)) 

16B0 Al=USR(l)iPRINTJl(,L(X2))!PRINTilX+23-V,N(X2)i 

1700 X2=X2+liIF X2=251 THEN X2=l 

1720 RETURN 

Input note string. 

1740 REN 

1760 CC=X2;G0SUB3000 

17B0 LtCC)="!SN="ENTER NOTE OR PRESS <ENTER>.":BDSUB5340 

1800 60SUB1900 :B0SUB2120 sIF ASC(N)=13 THENIBBO 

1B20 IF ASCIN)=B THEN LICC)=LEFT$(L(CC),LEN(L(CC))-l)i60T01B00 

1B40 IF LEN(L(CC))>9 THEN L(CC)=L(CC)+N:B0SUB1900 sBOTO 1880 

1860 L(CC)=L(CC)+N:60T01800 

1880 SN=" < READY > ":B0Tfl640 

1900 PRINT8B34," "i!PRINTJB34,L(CC)|!RETURN 

Call Machine Language subroutine to shift one line down the 
page. 

1920 REN 

1940 X2=X2-l!lF X2=0 THEN X2=250 

1960 Al=USR(0)ir=X2-12 

1980 IF X2>12 THEN Yl=LEN(N(Y))!PRlNT9130,L(Y)i!PRINTJ153-Yl,N(y 

lisRETURN 

2000 X=X2+238:PRINTJ130,L(X)i!PRINT8153-LEN(N(X)),N(X)j:RETURN 

Clear and print leiory line to screen at X. 

2020 REM 

2040 PRINT8X,STR1NB$(26," »)i 
2060 PRlNT8X,L(YliTAB(46)N(Y)j 
2080 RETURN 

Call larquee subroutine. 

2100 B0SUBS260 

Input a keypress; otherxise call larquee subroutine. 

2120 N=lNKEY$!lF N="" THEN B0SUB5120 IB0T02120 ELSE RETURN 

Subtotal point. 

2140 REM 

2160 C(X2)=5:L(X2)=" 

2180 G0SUB2200 iSN=SN+" SUB T0TAL"iN(X2)=N(X2)+' S"ifiDSUB1640 :B 

0T0640 

Hath subroutine. 

2200 REH 

2220 CC=)(2!G0SUB3000 !SN="NflIT I'M CflLCULATIN6"!S0SUfl5260 

2240 B0SUB5I20 :IF C(CC)<5 AND CICOOO THEN B0SUB3000 !e0TD2240 

■ 2260 CB=C(CC):S="" 

2280 DT=0!DS=1;CK=CC;IF C(CC)=5 THEN C(CC)=1 ELSE BOSUB2920 

2300 B0SUB5120 :CD=1:IFC(CC)>4 THEN SN=""! B0SUB25B0 :N(X2)'N!Ba 

TD2B60 

2320 X=CC;B0SUB2960 

2340 IF C(X)=3 OR C(X)»4 THEN 2420 



2360 IF C(CC)=1 THEN DT=DT+VAL(N(CC)):B0SUB2920 !60T02300 
2380 IF C(CC)=2 THEN DT=DT-VAL(N(CC) )!60SUB2920 :B0T02300 
2400 SN='MATH";60T03B20 

2420 6DSUB5120 J60SUB2960 :IF C(X)=3 OR C(X)=4 THEN CD=CD+l!SOTO 
2420 

2440 X=CCiCL=CD+l!REM CD = » OF » OR / IN A ROK 
2460 IF C(X)=1 OR C(X)=2 THEN DS=VAL(N(X)) 
2480 IF CIX)=3 THEN DS=DS»VAL(N(X)) 
2500 IF C{X)=4 THEN DS=DS/VAL(N(X)) 
2520 B0SUB5120 !BOSUB2960 !CL=CL-1:IF CLOO THEN 2460 
2540 IF C(CC)=1 THEN DT=DT+DS ELSE IF C(CC)=2 THEN DT=DT-DS ELSE 
SN="MATH"i60T0 3820 

2560 FOR X=0 TO CD:60SUB2920 jNEXT:60T02300 
2580 IF DT>0 THEN DT=DT+DJ ELSE IF DT<0 THEN DT=DT-DJ 
2600 IF ABS(DT)>.01 THEN 2660 
2620 SN="UNDERFLO« ':DT=0 
2640 N='0"!G0TD2B40 
2660 C1=LEN(STR»(INT(DT))) 
2680 IF CM=5 THEN C3=2iBOT02740 

2700 IF CM=6 THEN C4=13!N=LEFT»(STR$(DT),C4)!DT=VAL(N):B0T02B00 
2720 C3=CH 

2740 IF CM=0 THEN C4=Cl!60T02800 ELSE IF ABS(DT)>'1 THEN C4=C1+C 
3+l!G0TD2B00 
2760 IF CM=0 THEN 2640 
27B0 C4=C3+2 

2B00 N=LEFT»(STR$(DT),C41 
2820 IF Cl>13 THEN SN«'OVERFL0N " 
2840 RETURN 

2860 C(CK)=CB;IF CB=5 THEN DV=DV+DT-VAL(N(CK))ELSE DVOV+DT 
2880 DT=DV!S0SUB2580 :DV=VAL(N)iNA=N 
2900 RETURN 

2920 CC=CC+liIF CC=251 THEN CC=1 
2940 RETURN 

2960 X=X+liIF X=251 THEN X=l 
2980 RETURN 

3000 CC=CC-liIF CC=0 THEN CC=250 
3020 RETURN 

Total point. 



3040 REH 
3060 C(X2)=6 
3080 G0SUB2200 
3100 G0T0640 



SN=SN+" T0TAL"!N(X2)=N(X2)+' T"iG0SUB1640 



Construct string SA in correct foriat using DT. 

3120 XI=XIM:60SUB5160 !IF CM=6 OR A«l OR CM=0 THEN RETURN 

3140 AA=LEN(SA):IF AP=50 THEN SA=SA+".':flP'LEN(SA)-l 

3160 IF CM=5 THEN 3200 

31B0 IF AA>»APtCM THEN RETURN ELSE SA=SA+"O"iAA=AA+liB0T03180 

3200 IF A=0 THEN DT*VAL(SA)/100 ELSE RETURN 

3220 C1=LEN(STR«(INT(DT))):C2=LEN(STR»(DT)) 

3240 IF C2=Cl+3 OR C2=Cl+2 AND DT<1 THEN SA>STR»(DT):RETURN 

3260 IF C2=C1+1 OR C2=Cl+2 THEN SA=STR«(DT)+"0"!RETURN 

32B0 SA=STR$(DT)+".O0"!RETURN 

3300 RETURN 

Addition input point. 

3320 REN 

3340 B0SUB3120 

3360 N(X2)=SA+" +':C(X2)=1:B0SUB1640 :SN='+' 

3380 BOTD 640 

Subtraction input point. 

3400 REM 
3420 G0SUB3120 



52 
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3440 N(X2)=SA+" -":C(X2)=2:60SUB1640 !SN="-" 
3460 GOTO 3380 

Multiplication input point. 

34B0 REH 

3500 G0SUB3120 

3520 N(X2)=SA+" l"iCa2)=3:6DSUB1640 iSN="MULTIPLIY " 

3540 GOTO 3380 

Division input point. 

3560 REH 

3580 60SU63120 

3600 N(X2)=SA+" /"!C(X2)=4:G0SUB1640 iSN="DIVIDE" 

3620 GOTO 3380 

Clear accuRulator teaory. 

3640 Nfl=""iNB="!DX=0!DV=0!SN="ACC CLEARED":XI=0i6DT0640 

Clear leiory or paper. 

3660 REH 

3680 SN="C ■!G0SUB2100 

3700 A=l:Y=ASC(NliIF Y=69 THEN 1580 

3720 IF Y=77 THEN SN="CLEAR HEH0RY";60SUB 3B40 :GOTD 3800 

3740 IF Y=BO THEN SN="CLEAR PAPER'iGOSUB 3840 :SN="HAIT I'H ERAS 

ING THE PAPER"iG0SUB5260 !G0SUB5120 ELSE 3820 

3760 N=""iCC=0!X2=liFQRX=lT0250:60SUB5120 ;N(X)="":L(X)='":C(X)= 

0!NEXT:SN='PAPER CLEARED" 

3780 GOSUBIOOO :G0T0640 

3800 AF'OiFOR X=l TO 6 :S(X)="":NEXTiSN="HEHORY CLEARED' :G0SUB11 

80 fSOTO 640 

3820 SN=SN+" ERROR ":GOTO 640 

3840 SN=SN+" ARE YOU SURE ? Y,N":60SUB2100 

3860 IF N="Y' THEN RETURN ELSE SN="0K":60T0 640 

Recall point. 

3880 REM 

3900 SN='RECALL I ?'!60SUB2100 jIF N='H" THEN N(X2)=STR»(NEfl):SA 

=N(X2)iGDT04020 

3920 IF N="T' THEN N(X2)=NBiSA=NB!G0T04020 

3940 IF N="A" THEN N(X2)=NA;SA=NA:G0T04020 

3960 Y=ASC(N)!lF Y<49 OR Y>54 THEN 3820 

3980 Y=Y-48;X=X2:IF C1(Y)=0 THEN 3820 

4000 L(X)=Ll(Y)iN(X)=Nl(Y)!C(X)=Cl(Y):SA=LEFT«(N(X),LEN(N(Xl)-2) 

4020 SN="HHAT SIGN ? < + - / I >"!A=li60T0640 

Change *ode. 

4040 REH 

4060 IF CH<6 THEN CH=CH+1 ELSE CH=0 

4080 IF CH=6 THEN DJ=. 000000000001 ELSE DJ=. 0000001 

4100 60TD640 

Store to leiory. 

4120 REH 

4140 SN='STORE I ?"!S0SUB2100 

4160 Y=ASC(N)!lF Y<49 OR Y>54 THEN 3820 

4180 Y=Y-4EiX=X2-liIF X=0 THEN X=250 

4200 L1(Y)=L(X);N1(Y)=N(X)!C1(Y)=C(X);PRINT838+64IY,STRINB$(22," 

')| 
4220 IF AF=0 THEN AF=liG0SUB1180 
4240 PRINT838+64tY,Ll(Y)( 
4260 PRINT859+64«Y-LEN(N1 (Y) ) ,N1 (Y) ; 
4280 SN«"STORE INTO HEHORV "+STR«(Y)iG0T0640 



Shift paper down. 

4300 REM 

4320 Q=0!SN=CHRt(92);G0SUB1920 

4340 Q=Q+l!lF PEEK(14400)<>16 AND PEEK(14400)<>8 THEN N=INKEY«iG 

0TD640 

4360 IF Q<9 THEN 4340 

4380 IF PEEK(14400)-16 THEN SN-CHR«(92)iG0SUB1920 ELSE SN="['iS0 

SUB1640 

4400 G05UB5340 iG0SUB5120 iG0T04340 

Shift paper up, 

4420 REM 

4440 Q=0!G0SUB1640 !SN="["!60T04340 

Hard copy (printer). 

4460 IF PEEK(14312)>128 THEN SN="PRINTER NOT READY "!60T0640 
4480 SN='PRINTER"iG0SUB5260 

4500 LPRINT" MAGIC PAPER CALCULATOR ' 

4520 LPRINT' " 

4540 FOR X=l TO XL!G0SUB5120 
4560 IF C(X)=0 THEN 4620 
4580 IF CM=6 THEN LPRINTX,L(X),N(X)i60T0 4620 
4600 LPRINT X,L(X)i' ",iLPRINT USING Sl(CM+7)iVAL(N(X)) 
4620 NEXT 

4640 IF AF=0 THEN 4700 ELSE LPRINT "MEMORY :' 
4660 FOR X=l TO 6:LPRINTX,H(X),iIF CM=6 THEN LPRINT NKX) ELSE 
LPRINT USING Sl(CM+7)iVAL(Nl(X)) 
4680 NEXT 

4700 LPRINT'ACCUMULATOR MEMORY = ',:IF CM=6 THEN LPRINT DV ELSE 
LPRINT USING Sl(CM+7);DV 
4720 LPRINT' "sGOTO 640 
Exchange point. continued on next page 



AVANT-GARDE CREATIONS 
HAS SOFTWARE 
Over 50 diaka available in areaa of educa- 
tion, artldeaign, gantea, buaineaa, utilities, 
ffnd aelf-tranaformationi 

WRITE FOR CATALOGS 

The Creativity Tool Box Draw, write poetry, music. Includes Action 

Sounds. Hi-Res Scrolling, routines, shape tables and sliape view program, utilities, 

animation demo, and fonts. $44.95 

"...linpre»siDe...»art»/ylng...lnrere»Wng.../Mnf" Peelings (The Magazine of Software 

Reviews) 

'Tni/ji dl//eren<...un(gue...<he program Is an enjovable one...cute...uery InteresHng... 

neui...nlce...agood value! Apple Orchard (Winter) 

WE HAVE MORE! 

Chambers of Xenobia A new adventure game with Hl-Res & sounds 

$15.95 
5 Great GamesI Animal Bingo. Jungle Safari. Space Defense. Sky Watcher, 
Air Traffic Controller $29.95 (or $9,95 each) 

5 More Great GamesI Deep Sea Treasure. Mystery Code, Depth Charge. 
The Mine Fields of Normalcy. Turn 'Em Loose $29.95 (or S9.95 each) 

The Complete Mailing Label & Filing System Filing, label 

making, binary sort, dynamic sorting, directory, quick-find, formatted reports, char- 
acter code sorts, zip or alphabetical order, two-level sorting and more! 

$59.95 (4 disks and 3 manuals) 

Sentence Diagramming EducationaK grades 6-12 $19.95 

Designed to give your pro- 
gram the excitement of action * •ound $15.95 
Super Draw & Write Fonts, drawing, and useful utilities $ 1 5.95 

Super Shape Draw & Animate The best system yet. it works,., 
create and/or animate shape fables like a dream.,, $34.95 

Demo Disk I Some of our best stuff $9.95 

Demo Disk 1 1 More of our best $9.95 

And Introducing: The Zenith Education Systems 

Easy-to-use programs designed to aid In creation, modification, monitoring and 
grading lesson material. Demonstration package auailoble for SJO.OO (includes 2 
disks and a booklet) Complete Z,E.S.System $250.«M) 

ALL OF OUR SOFTWARE IS WRITTEN IN APPLESOFT". 48K. DISK 

DEPT.E-a 

AVANT-GARDE CREATIONS DEALER INQUIRIES INVITED 
P.O. Box 30160 Eugene. OR 97403 WSA /MASTERCARD I 

(503) 345-3043 (12pm-6pm 7 days a week) 



* Apple is a trademark of Apple Computer. In 
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continued from previous page 

4740 CC=>)l2i60SUB3000 :X=CCi60SU63000 ;Y=CCiAl=C(l()iC(XI=C(Y);C(Y 

)=A1 

47iO N=L()():L(X)=L(Y)!L(Y)=N:N=N()l)iN(X)=N(Y)!N(Y)»N 

4780 SN-'EI(CHAN6E':EDSUB1?20 :60SUB1920 iBOSUBlMO |80SUB1640 i6 

0T0640 

Square root. 

4800 CW2IBOSUB3000 )DT=VAL(N(CC))iIF DT<»0 THEN 640 

4B20 SN>"NAIT'i60SUB S340 

4840 DA>DSiDS>(DT/DS+DS)/2 

4860 IF DSODA THEN 4840 ELSE DT^DS 

4880 60SUB25BO iN(CC)>Ni' S'tSA>N!C(CC)>l 

4900 SN^'SQUARE R0DT'i60SUBt920 iGDSUBlMO iSOTDMO 

Error-handling routine. 

4920 REN 

4940 QE< (ERR/2) H 

4960 IF QE=S THEN SN='ILLE6AL FUNCTION CALL':QE=50S 

4980 IF BE'6 THEN SN='DVERFL0N'iQE=505 

SOOO IF QE=11 THEN SN^'DIVISION BY ZERO'iQE'SOS 

5020 IF QE==14 THEN SN^'OUT OF STRING SPACE' iBE^^SOS 

5040 IF QE=23 THEN RESUME 320 

5060 IF SEO50S THEN SN<"CODE t ■iSN>SN+STR$(eE) 

5080 SN'^SNi' ERROR'iSOSUB 960!60SUB 1180 iRESUNE 640 

Harquee love and print subroutine. 

5120 REN 

5140 YC'YC+hlF YC«6 THEN YC=0 ELSE RETURN 
5160 YE=YE+liPRINTJ927,HID$(H(YD),YE,YL)i 
5180 IF YE+YL=YA AND YD=0 THEN YD=l!YE=0 
5200 IF YE+YL=YB AND YDM THEN YD«0!YE>0 
5220 RETURN 

Update screen. 

S260 REN 

5280 PRINTJ670, STRING! (32," ■)i:PRINTa670,"H0DE IN 'iSKCN)! 

5300 PRINTJ542,STRING»(34,' ")|sPRINT8542,'ACC NEHORY ="|NA| 

5320 PRINT8606,STRING«(34," ")i:PRINT»606,"ITEN"iniTAB(40)"TAX 

•iNB, 

5340 PRINT87I2, STRING* (34," ■)|:PRINT8734,SN! 

5360 PRINT8897, STRING* (26," ")iiPRINT889B,"LINE"iX2iiPRINT392l-L 

EN(Nll(2)l,N(ll2);iIF XL<X2 THEN XL=X2 

5380 RETURN 

Data (or Nachine Language screen control routine. 

5400 DATA 205,127,10,0,0,62,0,133,40,51,62,11,17,130,60 
5420 DATA 33,194,60,1,26,0,237,176,61,40,17,229,213,225,17 
5440 DATA 38,0,25,229,209,225,1,38,0,9,24,232,0,62,26,33,64 
5460 DATA 63,35,54,128,61,32,250,0,0,0,201,0,0,0,62,11,17,89 
5480 DATA 63,33,25,63,1,26,0,237,164,61,40,16,229,213,225,17 
5500 DATA 218,255,25,229,209,225,1,218,255,9,24,232,62,26 
5520 DATA 33,128,60,24,204 

Node naies. 

5540 DATA FIX 0,FIX 1,FIX 2,FIX 3,FIX 4,FINANCIAL,FL0ATING POINT 

Print-using foriat for each lode (for use with printer). 

5560 DATA lilllitltllltl.,ltttlltllllll.t,IHIttflltll.ll,ttl«li 

If III. Ill 

5580 DATA llllllllll.llll.tllllllllllll.ll,! 



Calculate tax and total aiounts. 

5600 IF CH05 THEN CH=2;DJ=. 0000001 

5620 IF BT=0 THEN SN="tlHAT IS YOUR TAX RATE X ' ELSE 5660 

5640 G0SUB210O iSN="!60SUB5340 iBT=liTA=VAL(N)/100 

5660 SN="TAX t TOTAL ' 

5680 CC=X2:60SUB3000 iOT=(VAL(N(CC))^.02)tTAi60SUB2580 :NIX2)>Nt 

■ +"iL(X2)='TAX"iC(X2)M 

5700 DX=DX^VAL(N)!60SUB1640 !DT=DX:60SUB2580 :DX-VALIN)iNB^N 

5720 CC=X2!GOSUB3000 ;Y=CCi60SUB3000 !DT=VAL(N(Y))+VAL(N(CC))!60 

SUB25B0 iN(X2)=N+" T";C(X2)=6 

5740 L(X2)='T0TAL":G0SUB1640 

5760 SOTO 640 

Clear itei counter. 

5780 XI=0i6DT0640 

Calculate discount. 

5800 SN='DISCOUNTED' 

5820 IF N(X2)="" THEN N(X2)=SK !SN«'HEHORY •+SN ELSE SK»N(X2) 

5840 CC<'X2i60SUB3000 iN(X2)=N(X2)^' X' 

5860 DT=((100-VAL(SK))/100)«VAL(N(CC)) 

5880 60SUB2580 iS0SUB1640 iC(X2)'5 

5900 N(X2)=N+" S'iL(X2)='DIS"iG0SUB1640 :G0T0640 

5920 SN='PERCENT" 

5940 IF N(X2)»"" THEN N(X2)«SJ iSN^'HEHORY "tSN ELSE SJ»N(X2) 

5960 CC=X2!60SUB3000 :N(X2)'N(X2)+' X" 

5980 DT=(VAL(SJ)/100)tVAL(N(CC)) 

6000 60SUB2580 iGDSUB1640 iC(X2)<S 

6020 N(X2)=N+' S'i60SUB1640 

6040 G0T0640 



o 



S-80 ONE LINERS 

10 CLS;PR!NTi25,"LDAN SCHEDULE": INPUT"flnOUNT,riaNTHS,PCT";A,N,R:R 
=R/1200;P=A/(!l-(l/!(l+R)"N)))/R):PRINT"PflYNENT", "PRINCIPLE", "IN 
TERE3T","BALHNCE":FORX=lT0N:I=RtA:fl=fl-F+l!PRINTF,P-I,I,fl:r=Y+l:I 
FY=10,Y=0:INPiJT'PRESS ENTER"; A$:PRINT3192,CHR« (31) jiNEXTELSENEXT 

Ronald Johnson 
Columbia, S.C. 

1 DEFrNTfi-Z;RHNCDri;A=64:B=23iFORC=OT0999:CLSiFORD=OT06B:E=RNDt3) 
-2:F=RNBi3)-2:FQRH=OT0RND(29):IFA+E<0ORB+F<0ORA+E>64ORB+F>23,NEX 
TD; F0RY=0T09?9: NEXT: RLINELSEA=A+E! B=B+F: SET (A, B) : SET ( 127-A, B) : SET 
iA,47-B):SET(i27-A,47-E):NEXT:NEXTD:FORZ=0TD999:NEXT:NEXTC:RUN 

T. Knimholz 
Springfield, Mo. 

10 DEF5TRH;F=4e0:E=F:B=F:L=FiD=F:I=F:Y=F:a=F:Z=F;FOR3=lT07:OUT25 
5,10:A=CHR$(RND(62)+128):E=E-67:B=B-61:C=C+67:D=D+61:X=X-4:Y=Y+4 
;W=W-64;Z=Z+fc4:PRINTSX,A:PRINT9F,A;A:PRINT3Y,A:PRINT9M,A:PRINTJZ 
,A;:PRINTSE,A:PRINT3B,A:PRINT3C,A;:PRINT*D,Aj:CLS:NEXT:G0T010 

40 CLSiB=4C:D=24;E=2.3iF0RR=2T051STEP7:F0RA=-RT0R:X=R«R-A»A:Y=SEI 
P!X):Y=INT{V-.5):SET(A+B,D+Y/E):SET(A+B,D-Y/E):NEXT:NEXT:F0RR=5I 
T02STEP-7:F0RA=-RTDR;X=R>R-A»A:Y=SQR(X):Y=INT(Y-.5):RESET(A+B,D+ 
i7Ei:RE3ET(A+B,D-Y/E):NEXT;NEXT:GOT040 

Hariand HUl 
Chambersburg, Pa. 

1 CL5:*=i:Y=23:FDRH=lT0i5:FORZ=lTO9:C(Z)=-2+RND(3):NEXT:FORZ=ITO 
9:Y=y+LiZ):X=X+AB3(C(Z))-RND(0)/2iSET(X,Y):SET(127-X,Y):SET(127- 
X,47-Yi:SETiX,47-Y);NEXTZ,W:F0R2=lT0999:NEXT:G0T01 

Donald Wolf 
Greendale, Wi. 



54 



SonSide July 1981 




Word Wars 



by Rowland Archer 



"Word Wars" is an S-80 game re- 
quiring 16K of memory. 

The object of "Word Wars" is 
simple but challenging: Form as 
many words as possible in a fixed 
amount of time from a random 
"roll" of letters. The game may be 
played alone, with as many as six 
players, or even with teams in larger 
groups. 

You will have approximately three 
minutes to form words from your roll 
of letters. Each word must be at least 
three letters long. That sounds simple 
enough — BUT, you are limited to 
five words of each length. You will 
probably find yourself rapidly filling 
the columns of 3-, 4-, and 5-letter 
words, and then staring frantically at 
the letters trying to find longer ones. 
But it's quite a thrill to discover a 
9- or 10-letter word lurking in that 
jumble of 13 letters displayed on the 
screen. 

To spur you on, the highest score 
so far in the current game is displayed 
at the bottom of the screen. It's a lit- 
tle disconcerting to know that your 
opponent scored 1600 points while 
you're still sitting there with 500, and 
less than a minute left. Those words 
must be in there somewhere! 

Since storing a complete dictionary 
is a bit difficult in a 16K computer, 
each player's words are displayed for 
challenge at the end of a game. A 
good dictionary will come in handy at 
this point for resolving disputes. In 
addition to challenging your oppo- 
nent's more questionable words, it's 
fun (?) as well to see all the 
"obvious" words that he got and you 
missed. 

A set of five games constitutes a 
tournament; the team or individual 
with the highest score at the end of 
the tournament wins. So if you really 
draw a blank on one roll, never fear, 
because you can make a comeback on 



the next one. Incidentally, playing 
alone is a great way to hone your 
skills while waiting for an unsuspect- 
ing friend to challenge. 

Complete instructions, including 
the details of play and scoring, are 
printed by the program on request. 

VARIABLES 

A$: Temporary string variable to 
hold INPUTS and INKEYSs. 
AD: Amount to add to countdown 
clock during input. 
BN: Bonus points for current word. 
BN (*): Base bonus point value for 
each word length. 
BP: Breakpoint score for double- 
bonus mode. 

BW: Bonus-won flag; set to -1 if 
player has won double bonus. 
CL: Countdown clock, in 
"seconds". 

CP: Number of current player. 
CS (*): Cumulative scores for each 
player. 

FD: Flag, set to -1 if word typed in 
during post-game challenge is 
found. 

GN: Current game number. 
GW$: String of letters used to 
generate words. (The more times a 
letter is repeated in GW$, the more 
Ukely it is to be part of a given roll; 
may be altered if desired.) 
HS: Holds current high score during 
post-game score ranking. 
I, J, K: Loop counters. 
KP: PRINT® position for clock 
display. 

L$: Current letter being added to 
roll during roll generation. 
L: Loop counter and array index. 
LW: Length of current word. 
M$: Message printed by GOSUB 
320. 

NL: Number of letters in current 
roll (13 for first four games, then 20 
for fifth game). 



NM$(*): Array of players' names. 
NP: Number of players. 
NS$(*): Array of players' names 
with possessive (' or 's) added. 
NW(I, J): Array tallying number of 
words formed by player I during 
the current game, of length J -I- 3. 
NW: Number of words of same 
length as current word, already 
formed by current player. 
OS(*): Array of offsets for 
PRINT® locations of words, in- 
dexed by their length. 
PA: PRINT® position for letters 
typed during INKEY$ of current 
word. 

PD$: String of blank padding for 
entering messages. 
PN: Penalty points for current suc- 
cessful word challenge. 
QP: Flag, set to -1 if "Q" is pre- 
sent in the current roll. (If it is, a 
random letter is replaced with 
"U".) 

RL$: Current roll of letters. 
SB: Score to beat; high score for 
current game. 

SC(*): Array of scores for current 
game. 

SZ: Size of word currently being 
blanked out on screen, between 
players. 

TI: Ticks of the clock; clock is 
decremented by one whenever TI is 
greater than 30. 

TS(*): Temporary array of scores 
used during score-ranking computa- 
tion. 

UB$: Graphics string containing 
box used to frame word display. 
W$: Current word. 
WA(*): Array holding count of let- 
ters in current roll: WA(0) is count 
of As, WA(1) is count of Bs, etc. 
WD$(I,J): Array of words formed 
during current game by player I 
grouped by length. 
WW(*): Temporary array used in 
vahdation of current word. 
XX: Loop counter. 



110 GOTO 370 


Principal input routine; accepts and validates letters, 




recognizes special characters such as SHIFT DDNN ARROW and 


Decrepent clock, print tine renainingi check for 60-5Bcond 


ENTER. 


warning, and buzz relay ii it's tiie. 


140 A»=INKEY»: TI=TI+1; IF TI>30 THEN SOSUB 120: IF CL=0 THEN 83 


120 CL=CL-l! TI=0: PRINT3KP,CL;CHR$(30) ;i IF CL=60 THEN PRINT314 
8,"- to SECOND WARNING -■;: FOR n=l TO 50: OUT 255,4: OUT 255 
,1: NEXT XX: PRINTJM8,CHRt(30)i; TI=30 
130 RETURN 




150 IF A$="" THEN 140 

140 IF A«>="A" AND A$<="Z" THEN W«=H«+A»! PRINTJPA.A*;: PA=PA+l! 
TI=TI+ADi GOTO 140 

continued on next page 
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continued from previous page 

170 IF A«=CHR$(13) THEN IF LEN(»lt)>0 THEN 760 ELSE 140 

180 IF A»=CHR«(27) AND NP=1 THEN H»="t« ABANDONING THIS SANE ««" 

! FOR 1=1 TO 2i 60SUB 320: NEXT I: CLS; 6N=:eN-l! GOTO 1460 

190 IF A»=CHR«(8) THEN IF H«="" THEN 140 ELSE H$=LEFT«(N$,LEN(M$ 

)-l);PRINTJPA,CHR$(8)i!Pfl=PA-liTI=TI+AD;G0TD 140 

200 IF A$=CHR«(24) THEN PA=PA-LEN(H»)i ll«=""i PRINT9PA,CHR»(30); 

!TI=TI+AD:G0T0140 

210 GOTO 140 

Generate the roll d{ letters froa Hhich to nake Hords. If roll 
contains a Q, be sure it contains a U also (give the guy a 
break!). 

230 RANDOH! QP=0: RL$="'! FOR 1=0 TO 25; «A(I)=0: NEXT I 

250 FOR 1=1 TO NLj L»=NID»(eN»,RND(LEN(G«)),l)i RL»=RL»+L» 

260 L=ASC(L$)-65i HA(L)=WA(L)+1 

270 IF L»="Q" THEN QP=-1 

2B0 NEXT I 

290 IF DP THEN I=RND(NL)i L=ASC(l1ID«(RL$,I,l))-65! WA(L)=NA(L)-1 

! WA(20)=HA(20)+1: RL$=LEFT$(RL$,I-1)+'U"+RI6HT<(RL»,NL-I) 

300 RETURN 

Print the aessage contained in Mt on the screen, pause, then 
blank it out and return. 

320 PDI=STRIN6t((64-LEN(«»))/2,32); PRINT812B,PD»;M$i 

340 FOR XX=1 TO 500! NEXT XX: PRINTS12B,PD$iSTRING$(LEN(H$l ,32)| 

350 RETURN 

Initialization. Ask if instructions are needed; get naees of 
players; initialize variables. 

370 CLS:PRINTCHR«(23)!PRINTS320,;!PRINTTAB(5)"WORD WARS":PRINT!P 
RINTTAB(5)"BY RQHLAND ARCHER"!FOR 1=1 TO 1000: NEXTI: CLS 
390 INPUT'DO YOU NEED INSTRUCTIONS (Y/N)";At! IF LEFT»(A<,1)="Y» 
THEN 60SUB 1520 
400 CLEAR 3000; DEFINT A-Z 
410 INPUT'HOW HANY PEOPLE ARE PLAYING HORD WAR";NP 

420 IF NP<1 THEN PRINT'THAT'S NOT VERY HANY! TRY AND ROUND UP SO 

ME NORE, PLEASE! SPRINT; GOTO 410 

430 IFNP>6 THEN PRINT'I THINK I'D GET LOST TRYING TO REMEMBER A 

LL THOSE NDRDS... LET'S KEEP IT DOWN TO SIX PLAYERS THIS ROUND.'; 

PRINT; GOTO 410 

440 DIM M$(NP-1,34) 'ARRAY OF HORDS FORMED BY EACH PLAYER 

450 DIM 0S(6),NN(NP-1,6),NM»(NP-1),NS»(NP-1),SC(NP-1),TS!(NP-1), 

CS!(NP-1),BN(6),WA(25),«W(25): NL=13 

460 FOR 1=1 TO NP 

470 PRINT'WHAT'S PLAYER l";STR»(I);'"S NAME";:INPUT NM$(I-1I: NE 

XT I 

480 FOR 1=0 TO NP-l: IF RIGHT»(NM$(I),1)="S" THEN NS$(I)=NM$(I)+ 

■'" ELSE NS$(I)=NM«(I)+"'S" 

490 NEXT I 

500 G«»="AAAAAAAAABBCCDDDDEEEEEEEEEEEEFFEGGHHI 1 1 1 1 1 II IJKLLLLHMNN 

NNNNOOOOOOOOPPQRRRRRRSSSSTTTTTTUUUUVVHHXYYZ" 

510 UB»=STRINGI(4,32)+CHR«(191)+STRING»(6,32)+CHR«(191)+STRING$( 

7,32)+CHRt(191)+STRINB$(B,32)+CHR$(191)+STRING»(9,32)+CHR»ll91l+ 

STRING$(10,32)+CHR$(191)+STRING»(14,32) 

520 KP=55 

530 0S(0)=0: 0S(1)=6: DS;2)=13; 0S(3)=21; 0S(4)=30: 0S(5)=40: OS 

(6)=51 

540 BN(0)=0! BN(1)=5: FOR 1=2 TO 6: BN(I)=BN(I-I)«2: NEXT I 

550 AD=7! 6N=1 

560 BP=1750 

Draw the screen teiplate. 

580 CLS!PRINT"GAME NUMBER"iSN;; PRINTJ64, "LETTERS; ';; PRINT344, 
"TIME LEFT; "; 



600 PRINTJ3B4,STRINB$(64,176)): PRINT8768,STRING$(64,131); 
610 FDR 1=448 TO 704 STEP 64: PRINTJI.UBJ;: NEXT I 

Beginning of lain gaie loop. Benerate the roll of letters for 
this gaie, initialize necessary variables. 

640 GOSUB 230 

650 SB=0 

660 FOR CP=0 TO NP-l 

670 CL=180! PRINT8KP,CL;CHR«(30); 

680 IF NP>1 THEN PRINT8138,"IT'S ";NS«(CP);' TURN.. .CLEAR THE AR 

EA!"; 

690 PRINT3256,"HIT <ENTER> NHEN READY TO PLAY, •;NM»(CP);CHRJ(30 

)| 

700 A$=INKCY$! IF A$<>CHR$(13) THEN 700 

710 PRINT'il38,CHR((30);: PRINT8256,CHR$(301; 

720 FOR !=1 TO NL; PRINT873+2»(I-1),MID»(RL»,I,1);; NEXT I 

730 PRIf<T8320,NS$(CP);' WORDS:';: PRINT8364, "SCORE:";: IF NP>1 T 

HEN PRINT3914, "SCORE TO BEAT; ";SB;CHR$(30); 

740 BN=0 

Get a Nord using input subroutine; verify that it has not been 
played before, has at least three letters, and contains only 
letters in the roll; also check nuiber of Hords of that length. 

750 FOR 1=0 TO 25: NH(I)=«A(I)! NEXT I; PRINT8192,"Y0UR WORD, "; 

NM$(CP);"? ";: PA=192+P0S(0)! PRINTCHR«(30);: «$="": GOTO 140 

760 PRINT3192, "CHECKING ";«$;". ..";CHR»(30); 

780 FOR 1=1 TO LEN(N$): L=ASC(MID$(H$,I,l))-65 

790 WH(L)=WWIL)-1: IF WtKLXO THEN 810 ELSE NEXT I 

800 GOTO 940 

810 IF «A(L)=0 THEN M«="« THERE ARE NO "+MID«(N«,I,1)+"'S IN TH 

IS ROLL tf ELSE M$='tt YOUR NORD CONTAINS TOO MANY '^MID$(W(,I, 

1)+"'S »l" 

820 GOSUB 320! GOTO 750 

Clock has run out; sound the relay buzzer. 

830 FOR XX=1 TO 50: OUT 255,4: OUT 255,1; NEXT XX: PRINTJ152,'-- 
TIME'S UP --"; 

840 IF CPONP-1 PRINT8910,"HIT <ENTER> TO SET UP FOR NEXT PLAYER 
■; ELSE PRINT8910,"HIT <ENTER> TO REVIEW GAME SCORING"; 

End of gaie for current player. Blank his Hords froi the 
screen, check if he achieved a neH high score for this roll, and 
go on to next player if there is one. 

B60 A$=INKEY»! IF A»<>CHR<(13) THEN 860 

870 FDR 1=448 TO 704 STEP 64: PRINT8I,UB«;: NEXT I 

880 PRINT8192,CHR»(30);: PRINT3320,CHR»(30);: PRINT873,CHRt(30); 

: PRINT81S2,CHR$(30l;i PRINT8896,CHR((30); 

890 IF SC(CP)>SB THEN SB=SC(CP) 

900 NEXT CP 

910 GOTO 1150 

Word validation routines. If Nord is good, calculate its point 
value and add to score. Check to see if neN total score 
qualifies player for double bonus lode. 

940 TI=30; LH=LEN(««); IF LN>8 THEN Lll=9 

950 IF LN<3 THEN M«="«« HORDS MUST HAVE AT LEAST 3 LETTERS U';B 

GSUB320: GOTO 750 

960 IF NH(CP,LN-3)=5 THEN H«=''n YOU ALREADY HAVE 5 WORDS OF THA 

T LENGTH If; GOSUB 320; GOTO 750 

970 NN=NW(CP,LW-3) 

980 IF NN=0 THEN 1020 

990 FOR J=5»(LH-3) TO 5»(LH-3)+NW-l 
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1000 IF ND$(CP,J)<>W THEN NEXT J: 60T0 1020 

1010 H»»'U SORRY, YOU ALREADY HAVE THAT ONE M"i 60SUB 320i GOT 

750 

1020 NK=NIHCP,HI-3)! NII(CP,LII-3)=NN+1 

lOSO M0«ICP,St(LH-3)+NM)=M» 

1060 IF LEN(H$I>13 THEN H$=:LEFT(IW$,13I 

1070 PR]NT3448^64tNII^0S (LH-3) , H$i 

1080 SMHtlO 

1090 BN=6N(LM-3)t(NNil) 

1100 IF SC(CP)>BP THEN BN=BN+BN 

1110 SC»SC+BN: SC(CP)=SC(CPI+SCi PRINT8371,SC(CP)iCHR«(30)| 

1120 IF SC(CP)>BP AND BN=0 THEN H$='-- GREAT!! YOU JUST NENT INT 

D DOUBLE BONUS TINE --•; GOSUB 320: ««="-- ALL BONUS SCORES ARE 

NON DOUBLED --': GOSUB 320: M(°'- AND YOU GET 60 SECONDS OF EXT 

RA TINE --"; GOSUB 320; CL=CL+60: BN=-1 

1130 GOTO 750 

List pliyer's words on screen for possible challenge by other 
players. 

1150 FOR 1=0 TO NP-1 
1170 CLS;PRINT NS»(I)!' IIORDS;" 

1180 FOR K=0 TO 4: SZ=3: PRINTa (K+1)I12B,|: FOR J=0 TO 34 STEP 
5; SZ=SZ+1 

1190 IF WD$(I,J+K)="" THEN PRINT STRINB»(SZ,32) | ELSE PRINT WD« 
(I,J+K)|" •; 

1200 NEXTJ; NEXTK; PRINT 
1210 PRINTsPRINT'ANY OF ";NSt(I)j" WORDS MAY NOW BE CHALLENGED. 

■ 

1220 PRINT"ARE ALL OF ";NS$(I)i!lNPUT" WORDS OK (Y/N)"jA$ 

1230 IF LEFT$(A»,1)=°N' THEN PRINT8B96,CHR»(30)i "WHICH WORD IS I 

NCORRECT';; INPUT N$ ELSE 1290 

1240 FD=0; FDR n=0 TO 34; IF WD$(I,n)=W$ THEN FD=-1; WD»(I,XX) 

=""; GOTO 1250 ELSE NEXT XX 

1250 LW=LEN(M«); IF LH>9 THEN LW=9 

1260 IF FD THEN PN=LW«10+2»(BN(LW-3)»5) 

1270 IF FD THEN PR1NT8896, "SORRY, "iNNJd)!", THAT'LL COST YOU") 

PNi "POINTS. ■;CHR$(30)i:F0RXX=lT0700;NEXTXX; SC(I)=SC(I)-PN; PRIN 

T8896,"Y0UR NEtl SCORE IS "jSC(I)!"P0INTS.")CHR$(3O)j; FOR XX=1T0 

700;NEXTXX: 60T01170 

1280 PRINT8B96, "THAT'S NOT ONE OF "iNS»(I)i' WORDS."iCHR»(30);;F 

0RXX=1T01000:NEXTXX; GOTO 1170 

1290 NEXT I 

List players in descending order af their scores for the 
previous gaiie, and then by their cuiulative scores for the 
current tournaient. 

1320 CLSi PRINTTAB(19) "SCORING FOR ROUND";GN;PRINT:PRINT"NAHE"!T 

AB(53) I "SCORE'sPRINT"— -"; TAB(53) j " " 

1330 FOR 1=0 TO NP-1; TS!(I)=SC(I): NEXT I 

1340 FOR J=l TO NP 

1350 HS!=-1E36: W=0; FOR 1=0 TO NP-1; IF TSI(I)>=HS! THEN HS!=TS 

!(I): W>I; 

1360 NEXT I; PRINT NI1t(ll);5TRING$(S2-P0S(0),".");USING'ttitif"iS 

C(W): TS!{N)=-1E36; NEXT J 

1370 PRINTJ974, "PRESS <ENTER> TO CONTINUE"; 

1380 A«=INKEY«;IF A$="" THEN 1380 ELSE IF A«=CHR$(13) THEN 1390 

ELSE 1380 

1390 CLS: IF GN=5 THEN PRINTTABdS) "FINAL SCORES FOR TOURNAHENT; 

" ELSE PRINTTAB(19)"CUI1ULATIVE SCORING;" 

1400 PRINT:PRINT"NAHE";TAB(53);"SC0RE":PRINT"— -"iTAB(53)i"-— 

1410 FDR J=0 TO NP-1: CS! (J)=CS! (J)+SC(J): SC(J)=0; NEXT J 

1420 FOR 1=0 TO NP-1; TSI (I)=CS! (I); NEXT I 

1430 FOR J=l TO NP 

1440 HS!=-IE36; W=0; FOR 1=0 TO NP-1; IF TS!(I)>HS! THEN HS!=TS! 

II): N=l: 

1450 NEXT I; PRINT NH«(W)iSTRIN6»(52-P0S(0),"."))USING"lll»ll»sC 

S!(H); TS!(W)=-1E36; NEXT J 



End-gaie check. 

1460 IF GN<5 THEN GN=GN+1: PRINT8969,"HIT <ENTER> WHEN READY FOR 

GANE i";GN;: INPUTAt: CLS; GOTO 1500 
1470 PRINT3974, "ANOTHER TOURNAHENT (Y/N)? "i 
1480 A$=INKEY»;IF A$="' THEN 1480 ELSE IF A«="Y" THEN PRINT A$i: 

GOTO 1490 ELSE IF A$="N" THEN PRINT A»;PRINT"THANKS FOR PLAYING 

!":END ELSE 1480 

1490 FOR 1=0 TO 5: CS!II)=0; NEXT I; NL=13; GN=1; 

1500 FOR 1=0 TO NP-1; FOR J=0 TO 34: WD$(I,J)=""; NEXT J; FOR K= 

TO 6! NW(I,K)=0; NEXT K; NEXTI; A»=INKEYt; A«=""; IF BN=5 THEN 

NL=20 
1510 GOTO 580 

Print instructions. 

1520 CLS;PRINT"THE OBJECT OF WORD WARS IS TO NAKE AS MANY WORDS 
AS YOU CAN FROM"i:PRINT"A GROUP OF LETTERS DISPLAYED ON THE SCRE 
EN, WORKING AGAINST A":PRINT"TIHE LIMIT OF ABOUT THREE MINUTES." 
; PRINT 

1530 PRINT"WORD WARS MAY BE PLAYED BY A SINGLE PLAYER, COMPETINB 
AGAINST';PRINT"THE CLOCK AND TRYING TO GET THE HIGHEST POSSIBLE 
SCORE, OR BY";PRINT"UP TO SIX PEOPLE PLAYING AGAINST THE CLOCK 
AND EACH OTHER."; PRINT 

1540 PRINT"YOUR WORDG MUST CONTAIN AT LEAST THREE LETTERS. THEY 
ARE";PRINT"GROUPED ON THE SCREEN ACCORDING TO LENGTH. YOU CAN 
MAKE UP TO"!PRINT"FIVE WORDS OF EACH LENGTH FROM THREE TO EIGHT 
LETTERS, AND FIVE" 

1550 PRINT"WORDS WITH MORE THAN EIGHT LETTERS."; PRINT 
1560 PRINT-NO PROPER NOUNS ARE ALLOWED, BUT CONTRACTIONS, PLURAL 
S AND ALL";PRINT"PREFIXES AND SUFFIXES ARE FINE.": GOSUB 1680 
1570 PRINT'A GROUP OF FIVE GAMES OR ROUNDS IS CALLED A TOURNAMEN 
T. IN THE";PRINT"FIRST FOUR GAMES, YOU MUST MAKE YOUR WORDS FRO 
M A 'ROLL' 0F";PRINT"13 LETTERS. IN THE LAST GAME OF THE TOURNA 
MENT, YOU WILL HAVE":PRINT'20 LETTERS TO NORK WITH."; PRINT 
1580 PRINT" IF THERE IS MORE THAN ONE PLAYER, EACH GETS A THREE M 
INUTE TURN":PRINT"WITH THE SAME SET OF LETTERS. NATURALLY, THOS 
E WHO HAVEN'T HAD";PRINT"THEIR TURN YET SHOULD NOT WATCH THE SCR 
EEN WHILE OTHERS ARE":PRINT"MAKING THEIR WORDS. ■:PRJNT 
1590 PRINT"AFTER EACH PLAYER HAS HAD HIS OR HER TURN, EVERYONE'S 
WORDS ARE";PRINT"DISPLAYED IN TURN FOR POSSIBLE CHALLENGES FROM 
THE OTHERS. ":PRINT"YOU WILL NEED A DICTIONARY OR SOME OTHER NEA 
NS OF ARBITRATION": 

1600 PRINT"FOR THIS PHASE!";GOSUB 1680 

1610 PRINT"ALL PLAYERS ARE THEN RANKED ACCORDING TO THEIR SCORE 
FOR THIS":PRINT"GAME, AND THEIR TOTAL SCORE SO FAR."; PRINT 
1620 PRINT"A WORD ON SCORING. THE BASIC SCORE FOR A WORD IS 10 
POINTS";PRINT"TIMES THE NUMBER OF LETTERS IN THE WORD. IN ADDIT 
ION, A BONUS";PRINT"RANGING FROM TO 800 POINTS IS ADDED TO THE 
SCORE OF EACH WORD." 

1630 PRINT"THE MORE LETTERS IN A WORD, AND THE MORE WORDS OF THA 
T SIZE YOU":PRINT"HAVE ALREADY, THE HIGHER THE BONUS. ";PRINT 
1640 PRINT"FINALLY, IF YOU GET MORE THAN 1750 POINTS IN A GAME, 
YOU GO INTO"i;PRINT"DOUBLE BONUS MODE. THE BONUS FOR EACH -ADDI 
TIONAL- WORD YOU";PRINT"MAKE IS DOUBLED. YOU ALSO RECEIVE ANOTH 
ER 60 SECONDS OF PLAYINS"|:PRINT"TIME."; GOSUB 1680 
1650 PRINT" IF ANY OF YOUR WORDS ARE CHALLENGED AND FOUND INVALID 
, YOU ARE":PRINT"PENALnED AT THE HIGHEST POSSIBLE SCORE FOR A W 
ORD OF ITS SIZE, THAT IS, AT THE BASE SCORE PLUS THE BIGGEST POS 
SIBLE (DOUBLE) BONUS."; PRINT 

1660 PRINT"WHILE ENTERING A WORD, BACK-ARROW ERASES THE PREVIOUS 
CHARACTER, "i:PRINT"AND SHIFT BACK-ARROW ERASES THE ENTIRE WORD, 
JUST AS IN NORMAL";PRINT"BASIC INPUT. IF YOU ARE PLAYING ALONE 
, YOU MAY GET A NEW ROLL":PRINT"BY PRESSING SHIFT-UP ARROW. ";PR 
INT 

1670 PRINT"YOU MAY FIND IT FUN AT PARTIES TO LET TWO OR THREE PL 
AYERS W0RK";PRINT"T06ETHER AG A TEAM.":PRINT;PRINT"AT ANY RATE, 
HAVE FUN AND IMPROVE YOUR VOCABULARY!": GOGUB 1680; RETURN 
1680 PRINT8978,"HIT <ENTER> TO CONTINUE"; 
1690 At=INKEY«; IF A«=CHR$(13) THEN CL8: RETURN ELSE 1690 © 
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A 

YOU IN in V9Z 

Attend the biggest public computer shiows in the country. 
Each show has 100,000 square feet of display space fea- 
turing over 50 Million Dollars worth of software and hard- 
ware for business, industry, government, education, home 
and personal use. 
You'll see computers costing $150 to $250,000 including 
mini and micro computers, software, graphics, data and word 
processing equipment, telecommunications, office machines, 
electronic typewriters, peripheral equipment, supplies and com- 
puter services. 

All the major names are there including; IBM, Wang, DEC, 
Xerox, Burroughs, Data General, Qantel, Nixdorf, NEC, Radio 
Shack, Heathkit, Apple, RCA, Vector Graphic, and Commo- 
dore Pet. Plus, computerized videogames, robots, com- 
puter art, electronic gadgetry, and computer music to 
entertain, enthrall and educate kids, spouses and peo- 
ple who don't know a program from a memory disk. 

Don't miss the Coming Of The New Computers- 
Show Up For The Show that mixes business with 
pleasure. Admission is $5 for adults and $2 for chil- 
dren under 12 when accompanied by an adult. 



Ticket Information 

Send $5 per person with the name of the show 
you will attend to National Computer Shows. 
824 Boylston Street. Chestnut Hill. Mass. 02167. 
Tel. 617 739 2000. Tickets can also be purchased 
at the show. 



CHICAGO 
McCormick Place 

SCHOESSLING HALL 
23rd & THE LAKE 

THURS-SUN 
SEPT 10-13, 1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



WASHINGTON, DC 
DC Armory/Starplex 

2001 E. CAPITAL ST. SE 

(EGAP. ST. EXIT OFF I 295 

-KENILWORTH FRWY) 

ACROSS FROM RFK 

STADIUM 

THURS-SUN 

SEPT 24-27, 1981 

1 1 AM TO 7PM WEEKDAYS 

11 AM TO 6PM WEEKENDS 



SOUTNErib s 



BOSTON 
Hynes Auditorium 

PRUDENTIAL CENTER 

THURS-SUN 

OCT 15-18, 1981 

11 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



SHOW 

ATLANTA 
Atlanta Civic Center 

395 PIEDMONT AVE NEAT 
RALPH McGILL BLVD 

THURS-SUN 
OCT 294WV 1,1961 

1 1 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 



THE 

SOUTHERN 

-CRUFORNifl- 

COMRJTEF 

SHOW 

LOS ANGELES 
LA Convention Center 

1 201 SOUTH FIGUEROA 

THURS-SUN 

MAY 6-9, 1982 

1 1 AM TO 7PM WEEKDAYS 
11 AM TO 6PM WEEKENDS 
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Volleyball 



by Jim Hilger 

"Volleyball" is an Apple game re- 
quiring Applesoft and 16K RAM. 



"Volleyball" is an action sports 
game for four players. Most games 
are designed for one or two players, 
probably because it's rare to have 
more than two game paddles. 
"Volleyball" sidesteps this limitation 
by allowing two of the players to use 
keyboard controls, while the other 
two players use the paddles. Allowing 
four to participate in the game 
creates an exciting level of team com- 
petition. And if you don't have four 
players available, it's even more of a 
challenge for two or three. 

Introductory instructions are first 
displayed on the screen. Press 
RETURN, and the playing court will 
appear. Moments later the four high- 
resolution players take the court, and 
the game is on. The "A" mark 
beneath one side of the court in- 
dicates which team will serve. 

The players on each team who are 
farther from the net are called the 
"back" players, while those closer to 
the net are called the "up" players. 



The back players are controlled by 
the paddle knobs. The left up player 
is controlled by the "A" and "S" 
keys, while the right up player is 
moved using the left and right arrow 
keys. The back players also control 
the serve, which is initiated by press- 
ing the appropriate paddle button. 
The back and up players each cover 
their own zones of the court, and 
these zones do not overlap. 

The up players have more control 
options than you might first suspect. 
If you hit the "A" key once, for in- 
stance, the left up player drifts left. 
Hit the "A" key again, and he moves 
left twice as fast. Hit the "S" key 
once to slow down, and hit it again to 
stop. 

Normal volleyball rules are 
generally followed. The game is 
played to 21, and a team must win by 
two points. A team can score a point 
only when it has served. If a team 
fails to get the ball over the net after 
three hits, it loses the point. Contrary 
to regular rules, however, a single 
player is allowed to hit the ball more 
than once in succession; this is 
because of having only two players 
per side, who cannot leave their 



respective zones. 

Have fun, and may the best team 
win! 

VARIABLES 

A%: Ball take-off speed vertically 
when hit. A constant -24. 
B%: Luck of the bounce (random) 
factor when ball is not hit well. 
Bl%: New X-coordinate for 
volleyball. 

B2%: New Y-coordinate for 
volleyball. 

BX%: Current X-coordinate for 
volleyball. 

BY%: Current Y-coordinate for 
volleyball. 

C%: Luck of the bounce (B%) with 
a sign added to determine direction. 
H: Designates which team last hit 
the ball. H = l is left team; H = 2 is 
right team. 

H3: Indicates team which has ex- 
ceeded three-hit limit. 
I: Multi-purpose indexing variable 
in FOR-NEXT loops. 
1%: Variable that is read from 
DATA statements. 

continued on next page 
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K: Keyboard key-pressed value. 
LH: Indicates previous side to hit 
ball; used to decide whether to in- 
crement NH. 



N%: Normalized ball X-position. 

Used to generate a musical tone 

when a ball is hit. 

NH: Number of hits by current 

side. 

R: Random number. 

S: Designates which team is serving. 

S = 1 is left team; S = 2 is right 

team. 

SI: Left team's score. 

S2: Right team's score. 

SB%: Left front man's speed. 

SD%: Right front man's speed. 



Progran execution control. 



500 POKE 116,32: POKE 115,0 

1000 60SUB 2380 

1010 BOSUB 2300 

1020 BOTO 1550 

1030 GOSUB 1100 

1040 BOSUB 1150 

1050 BOSUB 12A0 

1060 60SUB 1290 

1070 BOSUB 1380 

1080 K = PEEK ( - 16384) 

1090 POKE - 16368,0: BOTO 1030 



Hove left back aan. 



1100 Xn = PDL (0) / 3 
1110 IF tn < 4 THEN m = 4 
1120 IF XU = XAX THEN 1140 
1130 HCOLQR= 0: DRAN 2 AT XA7.,11 
2: HCOLOR= 3: DRAW 2 AT XH, 

ni-.m = tn 

1140 RETURN 



Move left front lan. 



1150 IF SBX = THEN 1200 

1160 xn = m + SBX 

1170 IF xn < 94 THEN Xn = 94:8 

BX = 
1180 IF m > 134 THEN XIX = 134 

:SB7, = 
USO HCOLQR= 0: DRAW 3 AT XB7.,11 

2: HCOLOR= 3: DRAW 3 AT Xn, 

112:XB7. = xn 
1200 IF K < > 193 AND K < > 21 

1 THEN 1230 
1210 IF K = 193 THEN SBX = SBX - 

4: GOTO 1230 
1220 SBX = SBX + 4 
1230 RETURN 



Hove right back aan. 



1240 m = PDL (1) / 3 + 190 
1250 IF xn < 194 THEN Xn = 194 

1260 IF xn = \m THEN 1280 
1270 HCOLOR= 0: DRAW 4 AT XDX,11 

2: HCDLOR= 3: DRAW 4 AT XIX, 

112!XD5: = XIX 
1280 RETURN 

Move right front lan. 



1290 IF SDX = THEN 1340 

1300 xn = XCX + SDX 

1310 IF xn < 145 THEN XIX = 145 

:SDX = 
1320 IF xn > 185 THEN XIX = 185 

:SDX = 
1330 HCOLOR= 0: DRAW 5 AT XCX, 11 

2: HCOLOR= 3: DRAW 5 AT XIX, 

112:XCX = XIX 
1340 IF K < > 136 AND K < > 14 

9 THEN 1370 
1350 IF K = 136 THEN SDX = SDX - 

4: BOTO 1370 
1360 SDX = SDX + 4 
1370 RETURN 

Move volleyball and test for hits 
and lisses. 

1380 BIX = BXX + SXX:B2X = BYX + 

SYX 
1390 BX = B ♦ RND (1):CX = SBN 

(.5 - RND (D) I BX 
1400 SYX = SYX + 4 
1410 IF ABS (BIX - 139) < 5 AND 

B2X > 90 THEN BIX = BXX - SX 

X:SXX = - SXX: BOSUB 2240 
1420 IF B2X > 105 AND BYX < 106 THEN 

1460 
1430 IF B2X > 105 THEN 2020 
1440 IF BU < 4 OR BIX > 275 THEN 

2020 
1450 BOTO 1508 

1460 IF ABS (BIX - XAX) < 6 OR 
ABS (BIX - XBX) < 6 THEN Bl 

X = BIX + 4:SXX = 4 + BX:SYX 
= AX: BOSUB 2260: B2X = 105: 

H = 1: BOTO 1500 



SX%: Horizontal speed of 
volleyball. 

SY%: Vertical speed of volleyball. 
W: Indexing variable for producing 
missed ball buzz. 

XI %: New player position (used in 
all four player's move routines). 
XA%: Left back man position. 
XB%: Left front man position. 
XC%: Right front man position. 
XD%: Right back man position. 
ZZ: Buzz variable, set equal to 
speaker location PEEKs. 




1470 IF ABS (BIX - XAX) ( 10 OR 

ABS (BIX - XBX) < 10 THEN B 

n = BIX + 2!SXX = 2 + CX:SY 

X = 2 « AX / 3: BOSUB 2260: B 

2X = 105: H = 1: BOTO 1500 

1480 IF ABS (BIX - XCX) < 6 OR 
ABS (BIX - XDX) < 6 THEN Bl 
X = BIX - 4:SXX = - 4 - BX: 
SYX = AX: BOSUB 2260: B2X = 1 
05: H = 2: BOTO 1500 

1490 IF ABS (BIX - XCX) < 10 OR 

ABS (BIX - XDX) < 10 THEN B 

IX = BIX - 2:SXX = - 2 - CX 

:SYX = 2 t AX / 3: BOSUB 226 

0:B2X = 105:H = 2: BOTO 1500 

1495 SOTO 1508 

1500 IF LH = H THEN NH = NH + 1: 

IF NH > 3 THEN H3 = H: BOTO 
2020 
1505 IF LH > < H THEN LH = H:NH 

= 1 

1507 VTAB 21: HTAB 21: PRINT NH 

1508 IF B2X > 105 THEN B2X = 115 

1510 IF BIX < 4 OR BIX > 275 THEN 
2020 

1520 HCOLQR= 0: DRAW 1 AT BXX, BY 
X: HC0LOR= 3: DRAW 1 AT BIX, 
B2X:BXX = B1X:BYX = B2X 

1530 RETURN 



Gaie initialization. 



1550 AX = - 24 
1560 HGR 
1570 HOME 
1580 VTAB 22 
1590 HCOLOR^ 1 
1600 HPLOT 0,120 TO 279,120 
1610 HCOLOR= 5: HPLOT 0,121 TO 2 
79,121 
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HPLOT 0.122 TO 2 



HPLOT 0,123 TO 2 



1420 HCOLOR= 1: 

79,122 
1630 HCOLOR= 1: 

79,123 
1640 HCOLQR= 3 
1650 ROT= 0: SCflLE= 1 
1660 HPLOT 1A0,90 TO 140,118 
1670 HPLOT 139,90 TO 139,118 
1680 60SUB 2400 
1690 VTflB 22: CALL - 868 
1700 POKE 232,0! POKE 233,27 
1710 m = PDL (0) / 3 
1720 IF XAX < 4 THEN m = 4 
1730 DRAM 2 AT XA7.,112 
1740 XB7. = 110 
1750 DRflH 3 AT XBX,112 
1760 XDX = PDL (1) / 3 + 190 
1770 IF XDX < 194 THEN XDX = 194 

1780 DRAW 4 AT XDX, 112 
1790 XCX = 169 
1800 DRAW 5 AT XCX, 112 
1810 SI = 0:S2 = 
1820 VTAB 22: HTAB 10: PRINT SI: 
VTAB 22: HTAB 30: PRINT S2 
1830 SBX = 0:SDX = 
1840 K = 
1850 S = 1 
1860 R = RND (1): IF R < .5 THEN 

S = 2 
1870 SOSUB 1890 
1880 GOTO 1030 



Serve the volleyball. 



1890 BX = 8 « RND (1) 

1900 IF S = 1 THEN BXX = 85:BYX = 
100:SXX = 5 t BX:SYX = AX: VTAB 
21: HTAB 2: PRINT "*": VTAB 
21: HTAB 38: PRINT " " 

1910 IF S = 2 THEN BXX = 194:BYX 
= 100: SXX = - (5 + BX):SYX 
= AX: VTAB 21: HTAB 2: PRINT 
• ■: VTAB 21: HTAB 38: PRINT 

RAH 

1920 H = S 

1930 IF S = 1 THEN I = PEEK ( - 
16287): IF I < 128 THEN 1930 

1940 IF S = 2 THEN I = PEEK ( - 
16286): IF I < 128 THEN 1940 

1950 GDSUB 2240 

1960 SBX = 0:SBX = 

1965 H3 = 0:LH = 0:NH = 

1967 VTAB 21: HTAB 21: PRINT " " 

1970 K = 0: POKE - 16368,0 
1980 HCOLOR= 3 
1990 HPLOT 140,90 TO 140,118 
2000 HPLOT 139,90 TO 139,118 
2010 RETURN 



Scoring routine. 



2020 


IF H3 = 


THEN 2080 


2022 


IF H3 = 


2 THEN 2040 


2025 


IF BXX < 


139 THEN 


2070 


2030 


IF H = 1 


AND BIX > 275 THEN 




2080 






2040 


IF S = 1 


THEN SI 


= SI + 1 


2050 S = 1 






2060 


SOTO 2100 




2070 


IF H = 2 


AND BIX < 4 THEN 2 




040 






2080 


IF S = 2 THEN S2 


= S2 + 1 


2090 S = 2 






2100 


FOR W = 
: NEXT 


TO 20: 


BOSUB 2240 


2110 


VTAB 22: 


HTAB 10: 


PRINT SI: 




VTAB 22: 


HTAB 30: 


PRINT S2 


2120 


IF (SI > 


20 OR S2 


> 20) AND 




ABS (SI 


- S2) > 1 


THEN 2150 


2130 


HCOLOR= ( 


): DRAN 1 


AT BXX, BY 




X: HCOLOR 


= 3 




2140 


POP : eOSUB 1890: 


SOTO 1030 




End-of-gaie festivities. 



2150 VTAB 21: HTAB 19: FLASH : PRINT 

"SAME" 
2160 VTAB 22: HTAB 19: PRINT "OV 

ER' 
2170 NORMAL 
2180 HCOLOR= 2: HPLOT 10,10 TO 2 

0,20: CALL 62454: HCOLOR= 0: 

FOR I = 120 TO 123: HPLOT 

,1 TO 279,1: NEXT : HPLOT 13 

9,90 TO 139,118: HPLOT 140,9 

TO 140,118 
2190 FOR I = 150 TO 159: HPLOT 

,1 TO 279,1: NEXT 
2200 FOR I = 1 TO 3: CALL - 198 

: NEXT 
2210 K = PEEK ( - 16384): IF K < 

128 THEN 2210 
2220 POKE - 16368,0: IF K < > 

141 THEN 2210 
2230 SOTO 1550 



Buzzer. 

2240 ZZ = PEEK ( - 16336) + PEEK 
( - 16336) - PEEK ( - 16336 
) 

2250 RETURN 



Standard ausic tones with pitch 
based on volleyball 's horizontal 
position. 



2260 NX = BIX: IF NX > 255 THEN N 
X = 255 



2270 IF NX < 4 THEN NX = 4 

2280 POKE 776,NX: POKE 777,10: CALL 

778 
2290 RETURN 



6aie introduction page. 

2300 TEXT : HOME : VTAB 10: HTAB 
10: PRINT ■4-PLAYER VOLLEYBA 
LL" 

2310 HTAB 13: PRINT "BY JIM HILB 
ER" 

2320 VTAB 20: PRINT "PADDLES CON 
TROL OUTER MEN. A i S KEYS" 
! PRINT "AND ARROW KEYS HILL 
MOVE INNER MEN." 

2330 PRINT "SIDE MITH " MARK PUS 
H PADDLE BUTTON TO": PRINT " 
SERVE. HIT RETURN TO BE6 
IN MATCH I • 

2340 FOR I = 10 TO 1 STEP - 1:B 
IX = I « 10: BOSUB 2260: NEXT 
: FOR I = 1 TO 50: NEXT : FOR 
I = 1 TO 10!B1X = I » 10: GOSUB 
2260: NEXT 

2350 K = PEEK { - 16384): IF K < 
128 THEN 2350 

2360 POKE - 16368,0: IF K < > 
141 THEN 2350 

2370 RETURN 

Pokes for Machine Language tone 
routine. 

2380 POKE 776,255: POKE 777,255: 

POKE 778,173: POKE 779,48: POKE 
780,192: POKE 781,136: POKE 
782,208: POKE 783,5: POKE 78 
4,206: POKE 785,9: POKE 786, 
3: POKE 787,240 

continued on page 63 
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GET MORE 
OUT OF 

YOUR APPLE 
WITH 

S^i APPLE 





MICRO/Apple 



Over 30 Apple Programs on Diskette — For 
Less Than $1.00 Apiece! No Need to Type 
In Hundreds of Lines of Code! 



224-page book and diskette 



$24.95* 



* Add $2.00 for surface sfiipping. 
Massacfiusetts residents add 5% for saies 
tax. 



MICRO'S new book for Apple II users lets you 

■ Speed up programming in Applesoft and Integer BASIC! 

■ Add Apple II Plus editing features — at no cost! 

■ Round and format numbers accurately in business 
applications! 

■ Get lowercase letters and punctuation into Applesoft 
strings — at no cost! 

■ Do a shape table easily and correctly! 

■ Play the hit game "Spelunker"! 

■ And much, much more! 

With MICRO/Apple 1, the first volume In our 
new series, you receive 

■ 30 choice articles from MICRO, The 6502 Journal 
(1977-80), complete with listings, all updated by the 
authors or MICRO staff, 

plus 

■ 38 tested programs on diskette 

(13 sector, 3.2 DOS format, convertible to 3.3). 



Ask for MICRO/Apple at your computer store or 

Call Toll-free 800-227-1617, Ext. 564 

In California, call 800-772-3545, Ext. 564 
VISA and Mastercard Accepted 

MICRO 

P.O. Box 6502 

Chelmsford, Massachusetts 01824 
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continued from page 61 

2390 POKE 788,9: POKE 789,202: POKE 
790,208: POKE 791,245: POKE 
792,174: POKE 793,8: POKE 79 
4,3: POKE 795,76: POKE 796,1 
0: POKE 797,3: POKE 798,96: RETURN 

Poke in hi-resolution shapes frot 
DATA stateaents. 



2400 FOR 1 = 1 TO 284: READ U: POKE 

6912 + I - l.IX: NEXT I: RESTORE 

: RETURN 
2410 DATA 5,0,12,0,42,0,98,0,14 

3,0,219,0,27,27,18,10,41,45, 

13,24 
2420 DATA 31,27,59,40,9,9,9,60, 

27,27,27,12,13,9,41,24,59,63 

,31,0 
2430 DATA 0,24,27,27,18,18,18,4 

5,13,45,5,24,27,31,59,8,13,4 

5,9,24 
2440 DATA 27,59,63,8,45,13,9,24 

,27,63,63,44,45,45,9,24,59,6 

3,63,8 
2450 DATA 41,9,45,24,31,59,63,8 

,45,13,41,24,59,27,27,0,0,0, 

27,27 
2460 DATA 18,18,18,45,13,9,45,2 

8,31,27,27,7,8,41,13,45,1,24 

,27,63 
2470 DATA 31,3,8,41,45,45,1,24, 

59,63,63,3,8,41,45,45,1,24,3 

1,59 
2480 DATA 27,7,40,13,45,13,37,3 

1,59,63,27,44,9,9,9,33,63,31 

,27,63 
2490 DATA 4,0,0,27,27,18,18,18, 

41,45,41,37,59,27,31,3,8,9,4 

5,41 
2500 DATA 24,63,31,27,8,9,41,45 

,56,63,63,27,8,9,45,45,28,63 

,63,31 
2510 DATA 8,45,9,13,24,63,31,59 

,8,13,41,45,24,27,27,31,0,0, 

0,27 
2520 DATA 27,18,18,18,45,13,9,4 

5,28,31,27,27,7,8,41,13,45,1 

,24,27 
2530 DATA 63,31,3,8,41,45,45,1, 

24,59,63,63,3,8,41,45,45,1,2 

4,31 
2540 DATA 59,27,7,40,13,45,13,3 

7,31,59,63,27,44,9,9,9,33,63 

,31,27 
2550 DATA 63,4,0,0,3,0,0,0,194, 

216,0,194,0,0,0,194,217,0,10 





Wargamer's delight 



Three from Potkin 

Warpath 



The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
shelter and obstacles. Favorite 

scenarios may be replayed. 

S-80 Level II, 16K cassette $14.95 



Kriegspiel II 

A much improved two-player version 
of the original. Kriegspiel 11 is a war- 
gamer's delight. Choose the number of 
mountains (up to 200) and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 



Up Periscope 

The author of the popular Kriegspiel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargame in- 
cludes sonar, depth charges, and 
torpedos. 

S-80 Level II, 16K cassette $14.95 
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ADVENTURE OF THE MONTH CLUB 




ALIEN ADVENTURE 



JULY ADVENTURE OF THE MONTH 

You are the sole survivor of a crew on a mission to deliver a cargo of oil to Earth from a solar system far away. A crash 
landing has left you stranded on a small, harshly alien planet, which has as its only redeeming value, a bountiful supply of 
lead, gold and platinum. 

You must now find provisions and a means of leaving the planet (and stock up on all the loot you can!). But beware of 
the THING that massacred your crew! 

Alien Adventure, by Alan Zett, is modelled on the hit movie "Alien" and allows you three levels of play. Happy Adven- 
turing! 

What is Adventure of the Month? 

Everybody likes Adventures — they're challenging and entertaining every time you play. But too often, pre- 
programmed cassettes and disks cost upwards of $35, a price the manufacturer must charge to defray promotional and 
packaging costs. 

On the other hand, you can enter Adventures yourself, but when you do, you type away all the surprises. As a result, 
the game loses some of its challenge. 

At SoftSide, we've found a way to beat the high cost of Adventuring without having to miss out on any of the fun. 
We're offering no-frill Adventures — high quality Adventures — on cassette or disk at an almost unheard-of price: 
$5 for cassette, $8 on disk. 

We save you money by only advertising this offer to SoftSide readers (you won't see us anywhere else) and by 
foregoing fancy packaging and documentation — you'll get the software and only the software, but we believe it's as 
good as the $50 packages. 

You'll save even more by joining the Adventure of the Month Club. 

Here's how it works: SoftSide's editorial department will select an original BASIC language Adventure each month 
and make it available to you on a subscription basis: 

6 months on cassette: just $27 
6 months on disk: just $45 

Every month we'll tell you about the Adventure you'll be getting in SoftSide Magazine. To order, use the convenient 
order card in this issue — fill it out and send, with payment to: 

Adventure of the Month Club 

Department 681 

6 South Street 

Miiford, NH 03055 
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by Diivki T. Groy 

COLUMN CALCULATOR is a "word processor for 
numbers," a number processor designed to be used like 
a calcuiator. But it can handle large blocks of information 
as if handling one number at a time. The work space can 
be thought of as a large matrix with rows and columns 
much like an accountant's spreadsheet. Data can be easi- 
ly entered into columns: and the columns can then be 
moved around. Columns can be overlaid from an existing 
data file on disk. One column can be added, subtracted, 
multiplied, divided, or raised to a power of another and 
the results put in another column. Columns can be com- 
pared to one another. Columns can be totalled, or set with 
a constant, and any column can be sorted, carrying the 
rest of the columns with it. A predefined function can be 
defined, thereby preprogramming the worksheet. 

The statistical section provides analysis of the data. The 
analysis includes simple statistics, linear regression, sim- 
ple correlation, histogram and the T-test. 

The information can be printed out on the line-printer in 
a compressed format at any stage in the development of a 
data base. Thus, it can be used as a finished report or as 
a copy of the worksheet to permit the filling in of addi- 
tional data for later entry into the data base. The data base 
can be saved on disk and recalled at a later date for 
modification or for generatmg a report. Any column in a 
file on disk can be referenced and added to the current 
worksheet. 




All user communication with COLUMN CALCULATOR 
uses FLASH, the line input/editor routine. This enables 
the user to not only key in instructions, but to edit errors 
or data as well. 
S-80, 32K disk $39.95 
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Micro drafter 



by Jon Voskuil 

"Microdrafter" is an Apple pro- 
gram requiring Applesoft and 24K 
RAM, but is adaptable for 16K 
RAM. 




Trample your T square and 
triangles, crumple your compass, 
pulverize your protractor, and 
fricassee your French curves — the 
age of computerized drafting is here! 

Using the Apple's high-resolution 
graphics screen, this program allows 
you to simulate the use of compass, 
protractor, straightedge, ruler, 
freehand curves, etc., and create any 
kind of drawing you want, all in liv- 
ing color. Drawings may be saved to 
either tape or disk at any time, to be 
displayed or reworked later. 

In contrast to other Hi-Res draw- 
ing programs that you may have 
used, this one allows you to work in 
any of three different modes to create 
a drawing. Each of them has its 
unique advantages, and together they 
make possible a wide range of draw- 
ing capabilities. Each uses the two 
paddles, plus various keys on the 
keyboard, to control the position, 
movement, and color of the drawing 
cursor. The three modes are Com- 
pass, Straightedge, and Freehand. 

THE COMPASS MODE 

The Compass mode is best suited 
for drawing circles, arcs, spirals, and 
some other types of curved lines. 
Upon running the program, and after 
paging through the instructions, this 
is the mode in which you will find 
yourself. You'll see a display of 
various numbers, letters, and words 
at the bottom of the screen, with the 
remainder of the screen blank except 
possibly for one dot. If you turn Pad- 
66 



die fully counterclockwise, the dot 
will locate itself in the middle of the 
blank area. The display at the bottom 
will then tell you that the compass 
center is at coordinates 121,80 and 
the radius (distance between the 
center and the drawing "pencil") is 
0. Turning Paddle clockwise will 
move the dot away from the center in 
some direction, depending on the 
position of Paddle 1. Turning Paddle 
1 will rotate the point in a full circle 
around the center point, at whatever 
radius you set with Paddle 0, just as 
if you were pivoting a real compass. 

The compass center can be moved 
anywhere on the screen (or even off 
the screen) by using the I, J, K, and L 
keys to move up, left, right, and 
down respectively. You'll notice that 
it moves in steps of four units. This 
increment can be changed to one or 
five or any number, by changing the 
4s in lines 240-270. In fact, you may 
want to change only two of the lines 
(either 240 and 260, or 250 and 270), 
say to the number 3. This would 
allow you to place the center at any 
point on the screen (rather than just 
by steps of four) with the proper 
combination of back-and-forth 
keystrokes, while still allowing fairly 
fast movement over long distances. 
Incidentally, notice that the bottom 
left corner of the drawing screen is 
the 0, point, which fits better with 
most people's thinking than the top 
left. 

Once you decide that you want to 
draw with the compass, pressing 
"D" will toggle you into "Draw" 
status; pressing "D" again will 
return you to "Nodraw". If you 
want to draw a complete circle, you 
can save yourself the trouble of slow- 
ly turning Paddle 1 , and instead press 
"0" (regardless of the Draw/Nodraw 
status). To change colors at any time 
(except during the automatic drawing 
of a circle), press "C". The color 
names may not precisely correspond 
to the colors you see on your TV, in 
which case you may want to change 
line 30 appropriately. If you do, be 
sure to make each name exactly six 
characters, abbreviating or filling in 
with spaces as necessary. 

The compass mode is obviously 
suited for drawing circles and arcs, 
but it's also suited for drawing other 
types of curves. Spirals, for example, 
can be drawn by steadily changing 
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the radius with Paddle 0, while turn- 
ing the compass in a full circle with 
Paddle I. The spiral is continued by 
toggling to "Nodraw", turning Pad- 
dle I all the way back to its opposite 
extreme, toggling back to "Draw", 
and then continuing as with the first 
revolution. Other types of curves, as 
well, may be more easily drawn in 
this mode than in the Freehand mode 
described below; experimentation 
will be your best guide. 

THE STRAIGHTEDGE MODE 

Hitting the ESC key shifts you into 
the second mode. Straightedge. This 
mode allows you to position two 
points anywhere on the screen and 
then draw a straight line between 
them. Upon entering the mode, both 
points are together, at a place deter- 
mined by the paddle settings. Ad- 
justing the paddles will separate the 
second point from the first, moving it 
around the screen. Pressing "P" will 
fix that second point at its current 
position, and then allow you to 
manipulate the first one to some 
other place. Each press of the "P" 
key will fix the point which is current- 
ly mobile, bring the other point to the 
same location, and allow you in turn 
to move it around the screen. Press- 
ing "D" will draw a straight line of 
the current color between them. 

One of the strengths of this mode is 
found in the display at the bottom of 
the screen, which shows two facts 
about the line segment defined by 
your two endpoints. It displays the 
length of the Hne segment (in the 
same units in which the circle radius 
and the X, Y coordinates are 
measured), and the angle which the 
line makes with the horizontal. This 
makes it easy to draw lines of precise 
lengths and angles, as you need to do 
constantly in making almost any kind 
of mechanical or perspective draw- 
ing. You can also use this feature to 
measure existing distances and angles 
already drawn on the screen, just as 
you would use a ruler and a protrac- 
tor. 

THE FREEHAND MODE 

Pressing ESC once more will shift 
you into the third drawing mode. 
Freehand. This mode uses the pad- 
dles to control the X and Y coor- 
dinates of the cursor in a freestyle 
manner. The coordinates are 



displayed and updated continuously 
on the screen, and again you can tog- 
gle between Draw and Nodraw, and 
change colors at will. This is the 
simplest of the three modes from the 
programmer's viewpoint, but the 
most difficult to use skillfully from 
the user's viewpoint. Nevertheless, 
there are always times when a 
freehand approach is the only way to 
draw. A joystick in place of the dual 
paddles would be a tremendous asset 
here (and would be an interesting 
alternative in the other modes as 
well). Pressing ESC will again return 
you to the Compass mode. 

OTHER FEATURES 

Each time the program is RUN, 
you will be asked if there is a drawing 
you'd Hke to get from a tape or a 
disk. An affirmative answer will send 
you to the appropriate part of the 
program, and prompt you to do the 
right things to retrieve the saved pic- 
ture. Retrieval from tape is made 
simpler by using the Apple's screen 
editing feature: You simply use the 
right-arrow key to copy the ap- 
propriate commands. 

A picture in progress may be saved 
at any time by pressing CTRL-S. This 
again will prompt you to do the prop- 
er things for saving onto tape or 
disk. The picture is saved by simply 
dumping the contents of memory 
from hex address 2000 through 3FFF 
(decimal 8192 through 16383). Two 
other control-keys are also recog- 
nized at any time: CTRL-E will erase 
the current picture from the screen 
and from memory, and CTRL-Q will 
quit the program and return you to 
BASIC. 

PROGRAMMING NOTES 

As written, "Microdrafter" re- 
quires at least a 24K Apple. The pro- 
gram itself fits in just under 8K, 
which is just short of the beginning of 
the Hi-Res graphics screen memory. 
To prevent variables from occupying 
space within that screen memory 
area, LOMEM is set just above it, at 
16384. Which, if you have only 16K 
of RAM, leaves you up a creek 



without a paddle. However, you can 
use the program on a 16K Apple by 
doing the following: (1) Change 
"LOMEM: 16384" in line 5 to 
"HIMEM: 8191". (2) Delete or con- 
dense some of the instructions in lines 
4000-4330. Deleting lines 4120-4320 
and 7000-7020, and dropping the 
"GOSUB 7000" from line 4110, 
would be one way to do the trick; you 
may be able to get by with deleting 
less. 

There is a scaling adjustment built 
into the program, which you will 
probably need to change to fit your 
TV or monitor. To calibrate the pro- 
gram, enter the Compass mode and 
draw a fairly large circle. Take a ruler 
and measure the roundness of the cir- 
cle on the screen. If it's not perfectly 
round, you can adjust the value of Z 
in line 20 to correct the condition. If 
it's too fat, reduce the value of Z; if 
it's too skinny, increase Z. This 
won't correct non-linear distortion in 
your monitor, but it will at least cor- 
rect for the varying amounts of 
"overscan" on different TVs. 




Note that lines 50 and 6000 have 
attached REMs that warn you against 
changing their line numbers. This is 
important because of the references 
to them in the PRINT statements of 
lines 5140 and 5670. If you change 
those PRINTS (which a renumbering 
utility would NOT do by itself), then 
it's OK to change the line numbers to 
match. 

If you're wondering about all the 
seemingly trivial variables that are in- 
itialized in lines 15-25, these are used 



in order to maximize speed. It takes 
less time to retrieve the value of a 
variable (especially one initialized 
early) than to convert a decimal 
number to its binary floating-point 
equivalent. And in a program Hke 
this one, speed is an important con- 
sideration; as it is, it requires some 
patience to draw a really solid 
freeform line. 

VARIABLES 

A: Angle. 

C: ASCII value of "C" plus 128 
(i.e., the value returned by the 
keyboard PEEK when "C" is 
pressed). 

C$(*): Color names. 
CC: Current plotting color. 
CE, CQ, CS: Values of CTRL-E, 
CTRL-Q, and CTRL-S (see "C"). 
CX, CY: X and Y coordinates of 
compass center. 
D: Value of D key. 
D$(*): Draw/nodraw label. 
DD: Draw/nodraw status (1 or 0). 
ESC: Value of ESC key. 
F$: Name of disk file. 
II: Loop variable. 
I, J, K: Value of I, J, and K keys. 
Kl: Keyboard buffer PEEK ad- 
dress. 

K2: Keyboard buffer clear address. 
KEY: Value of last key pressed. 
L: Length of line segment. 
M: Value of M key. 
MODE: Current drafting mode. 
NO - NY: Variables used in place of 
constants such as 0, 96, etc. 
O, P: Values of O and P keys. 
PP: Mobile line endpoint number (1 
or 2). 

R: Circle radius. 
S: Circle-drawing increment. 
SX, SY: X and Y scaling factors. 
X: X plotting coordinate. 
X$: Input variable. 
X(*): X coordinates of line end- 
points. 

XF: X scale adjustment. 
XO: Old X coordinate. 
X, Y (*), YO: Y equivalent of X 
values. 

YP: Y-distance up from bottom of 
screen. 

Z: Vertical/horizontal scaling 
calibration. 



Initialization of variables. 


20 Z = 1,15 


35 D$(0) = "NDDRftH'':D»(l) = "BRftld 


5 LONEN: 16384: HSR : TEXT : HOME 


25 C = 195:D = 196:fl = 205:P = 20 


n 




8:1 = 201:J - 202:K = 203:ES 


40 CC = 7: HCOLOR= CC: SOSUB 4000 


10 DIN X;2),Y(2),C$(7),D$(1) 


C = 155;CE = 133:CB = 145:CS 




15 N5 = .5:NK = 128:K1 = - 16384 


= 147:0 = 207 


Clear text and snitch to hi-res 


:K2 = - 16368: N6 = 6.283085 


30 C»(l) = "GREEN ":C$(2) = "VIOL 


graphics screen. 


3:N40 = 40.5851565:N140 = 14 
0:N96 = 96:N27 = 2.7:N0 ^ 0: 
NX = 280:NY = 160:NR = 2.55: 
SX = 1.0941:SY = .6235:XF = 


ET":C»(3) = "HHITE2":Ct(4; = 
"BLACK ":C$(5i = "0RAN6E":C$ 
(6) = "BLUE ":C»(7) = "WHIT 
El" 


50 HOME : POKE - 16304,0: MODE = 
1: SOTO 1000: REM -> DON'T 
CHANGE THIS LINE 1!' 


.84 


continued on next page 

1 
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continued from previous page 


1020 VTAB 22: PRINT "D: 


Print current color. 


Subroutine to process comands. 


0:DRAM ! MOVE I 




100 KEY = PEEK (Kl): POKE K2,0 
110 IF MODE = 2 AND KEY = D THEN 
HPLOT X'.D.Yd) TO X(2),Y(2 


C: COMPLETE 
! COMPASS) J+KESC: CHANGE MODE 
S CIRCLE 1 CENTER M"; 


2030 VTAB 23; HTAB 3: PRINT C»(C 
C);: VTAB 21 


): RETURN 






120 IF KEY = D THEN DD = 1 - DD: 


Print draw status and current 


Coipute and plot nett endpoint; 


RETURN 


color. 


erase old endpoint. 


130 IF KEY < > C THEN 160 






140 CC = CC + 1: IF CC = 8 THEN C 


1030 VTAB 22: HTAB 3: PRINT D$(D 




C = 1 


D);: VTAB 23: HTAB 3: PRINT 




150 HCOLOR= CC: RETURN 

160 IF KEY < > ESC THEN 220 

170 IF NODE = 1 AND X > AND X < 

280 AND Y > AND Y < 160 THEN 
HCOLOR= 0: HPLOT X.Y: HCOLOR= 

CC 


C$(CC);: VTAB 21 

Read paddles; calculate radius and 
angle. 


2040 X(3 - PP) = PDL (0) t SX:Y( 
3 - PP) = PDL (1) t SY 

2050 X(PP) = PDL (0) I SX:Y(PP) = 
PDL (1) 1 SY: HPLOT X(3 - P 
P),Y(3 - PP): HCOLOR= 0: HPLOT 


IBO IF MODE = 2 THEN HCOLOR= 0: 
HPLOT X(1),Y(1): HPLOT X(2) 


1040 R = PDL (0) / NR:A = N6 - PDL 
(!) / N40;X = Z > (CX + R t 


XO.YO: HCOLOR= CC:XO = X(PP) 
:Y0 = YIPP): HPLOT XO,YO 


,Y(2): HCOLOR= CC 


SIN (A));Y = CY + R « COS 




190 HOME :MODE = MODE +1: IF MO 

DE = 4 THEN MODE = 1 
200 POP 


(A): IF DD THEN 1060 


Conpute and print length and angle 
of line segaent defined by 


210 ON MODE GOTO 1000,2000,3000 


Erase last point if in 'nodraw' 


endpoints. 


220 IF MODE = 2 AND KEY = P THEN 


status. 




PP = 3 - PP: HCOLOR= 0: HPLOT 
X(PP),Y,'PP): HCOLOR= CC: RETURN 

230 IF NODE < > 1 THEN 290 


1050 HCOLOR= 0: HPLOT XO,YO; HCOLOR= 


2060 X = XF t ABS (X(l) - X(2)): 
Y = ABS (Yd) - Y(2)):L = INT 
( SQR (X « X + Y » Y) + N5): 


240 IF KEY = J THEN CX = CX - 4 


CC 


IF X < .00001 THEN A = 90: GOTO 


250 IF KEY = K THEN CX = CX + 4 




2080 


260 IF KEY = I THEN CY = CY - 4 




2070 A = INT ( ATN (Y / X) 1 57. 


270 IF KEY = M THEN CY = CY + 4 


Plot nevt point. 


2958 + .5) 


280 HTAB 31: PRINT " ■;: 




2030 HTAB 26: PRINT L;" ';: HTAB 


HTAB 31: PRINT CX!°,"!l60 - 
CY| 
290 IF KEY = CE THEN H6R : RETURN 


1060 IF X > NO AND X < NX AND Y > 
NO AND Y < NY THEN HPLOT X, 
Y;XO = X:YO = Y 


37: PRINT A;" ';: IF PEEK ( 
Kl) < NK THEN 2050 
2090 60SUB 100: VTAB 23: HTAB 3: 
PRINT Ct(CC);: VTAB 21: GOTO 


300 IF KEY = Ca THEN TEXT : HOME 




2040 


: END 






310 IF KEY = CS THEN GOTO 5500 


Print radius and check for 




320 IF KEY < > THEN 360 

330 S = 50 / (R + 1) 

340 FOR II = TO 255 STEP S:A = 


keypress. 


Freehand node: 

Print coiBands suMary. 


N4 - II / N40:X = Z » (CX + 


1070 HTAB 19: PRINT INT (R + N5 




R t SIN 1A)):Y = CY + R t COS 
(A): IF X > NO AND X < NX AND 


)|" ";: IF PEEK (Kl) < NK THEN 
1040 


3000 VTAB 21: INVERSE : PRINT " 


Y > NO AND Y < NY THEN HPLOT 
X,Y 


1030 GOSUB 100: GOTO 1030 


FREEHAND ';: NORMAL : HTAB 2 
0: PRINT "X^";: HTAB 30: PRINT 


350 NEXT 
360 RETURN 


Straightedge eode: 
Print coiAands suniary. 


"Y="i 
3010 VTAB 22: HTAB 1: PRINT "D:" 
: PRINT "C:": PRINT ■ESC:CHA 
NGE MODES"! 


Compass node: 

Print suiiary of coaiands at 

bottoi oi screen. 


2000 PP = 1 

2010 VTAB 21: INVERSE : PRINT • 
STRAIGHTEDGE ';: NORMAL : HTAB 
19: PRINT "LENGTH: ■;: HTAB 3 


Print drat* status and current 
color, 


1000 CX = INT il40 / 2):CY = 80: 


l! PRINT "ANGLE:"! 




DD = 


2020 VTAB 22: HTAB 1: PRINT "DiD 


3020 VTAB 22: HTAB 3: PRINT D»(D 


1010 VTAB 21: INVERSE : PRINT " 


RAW LINE P:FIX EN 


D);: VTAB 23: HTAB 3: PRIKT 


COMPASS ";: NORMAL : HTAB 12 


DPOINT C: 


C$(CC);: VTAB 21 


: PRINT "RADIUS: ■;: HTAB 24: 


!. MOVE OTHER ESC:CHA 




PRINT "CENTER:";CX;",'il60 - 


NGE MODES ENDPOINT" 




CY 


■ 


Coapute neH plot position. 
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3030 X = PDL (0) t SX:Y = PDL ( 


4110 NORMAL ; VTAB 24; HTAB 2; PRINT 


4300 PRINT : PRINT "PRESSING 'D' 


li t SY:YP = 159 - Y: HTAB 2 


"»> PRESS SPACE BAR TO CONT 


TOGGLES BETWEEN 'DRAW'"; PRINT 


2: PRINT INT (X / Z);" ";: 


INUE «<"|: 60SUB 7000 


"AND 'NODRAM'." 


HTftB 32: PRINT INT (Y);" 




4310 PRINT ; PRINT 'PRESSING 'C 


";: IF DD THEN 3050 




CHANGES THE COLOR." 




Print second page of instructions. 


4320 PRINT : PRINT 'THE X AND Y 
COORDINATES ARE DISPLAYED." 


Erase old point if in 'nodran' 




4330 IF PEEK (Kl) < NK THEN 433 


status. 


4120 VTAB 2; HTAB 12: NORMAL : PRINT 

"IN COMPASS MODE:" 
4130 INVERSE : VTAB 5: PRINT 'TH 





3040 HCOLOR= 0: HPLQT XO.YO: HCOLOR= 


E COMPASS POINT IS MOVED USI 


Restore text window, inquire about 


CC 


NG THE': PRINT "I, J, K, AND 
M KEYS.' 
4140 PRINT ; PRINT "PRESSING 'D' 


a previously-stored drawing. 


Plot ne« point, check for keypress. 


TOGGLES BETWEEN 'DRAW'"; PRINT 


4340 POKE K2,0: POKE 32,0: POKE 




■AND 'NQDRAW'." 


33,40: NORMAL 




4150 PRINT ; PRINT 'PRESSING 'C 


4350 HOME : VTAB 3; PRINT "DO YO 


3050 HPLQT X,YP:XO = X:YO = YP: IF 


CHANGES COLORS." 


U HAVE A DRAWING ON TAPE OR 


PEEK (Kl) < NK THEN 3030 


4160 PRINT : PRINT 'PRESSING '0' 


DISK TO LOAD IN AT THIS TI 


3060 60SUB 100; GOTO 3020 


DRAWS A COMPLETE CIRCLE.' 


ME? (Y/N) "i: GET X$ 




4170 PRINT ; PRINT 'PADDLE CHA 


4360 IF X$ < > "Y" AND X« < > 




NGES THE COMPASS RADIUS." 


"N" THEN 4350 


Subroutine to print instructions. 


4180 PRINT : PRINT 'PADDLE 1 CHA 


4370 IF X» = "Y" THEN 5000 




NGES THE COMPASS ROTATION." 


4380 RETURN 




4190 VTAB 22; PRINT " (COMMANDS 




4000 HOKE : VTAB 10: PRINT TAB( 


ARE SHOWN DURING DRAWING)' 




8)"I1 I C R - D R A F T E R 


4200 GOSUB 7000 


Routine to retrieve drawing fros 


": VTAB 14; PRINT TAB( 13)" 




tape or disk. 


BY JON VDSKUIL" 






4010 FOR II = 1 TO 1000; NEXT II 


Print third page of instructions. 


5000 PRINT : PRINT ; PRINT "FROM 
TAPE OR DISK? (T/D) ';; SET 




4210 VTAB 2; HTAB 10: NORMAL : PRINT 


X$: IF X$ < > "T" AND X$ < 


Paint screen white, love text 


"IN STRAIGHTEDGE MODE:'; INVERSE 


> "D" THEN 5000 


MindoN one space in from left 




5010 HOME : VTAB 3: IF X» = "T" THEN 


■argin, and print first page of 


4220 VTAB 5; PRINT "PRESSING 'D' 


5050 


instructions. 


DRAWS A LINE BETWEEN THE': PRINT 


5020 PRINT "INSERT DISK AND ENTE 




"TWO ENDPOINTS.' 


R FILE NAME:": PRINT ; INPUT 




4230 PRINT : PRINT "PRESSING 'P' 


" > "iF» 


4020 HONE : INVERSE : FOR 11 = 1 


FIXES THE MOVEABLE": PRINT 


5030 PRINT CHR$ (4) ; °BLOAD";F$ 


TO 23: PRINT SPC( 40);: NEXT 


"ENDPOINT AND ALLOWS MOVING 


5040 PRINT ; PRINT "PRESS ANY KE 


II: POKE 33.39: POKE 32,1 


THE OTHER." 


Y TO CONTINUE. . .";: GET X$ 


4030 VTAB 3: PRINT » MICRODRAF 


4240 PRINT ; PRINT "THE PADDLES 


: GOTO 4380 


TER IS A PADDLE-CONTROLLED": 


MOVE THE MOBILE ENDPOINT." 


5050 PRINT 'TO LOAD FROM TAPE;" 


PRINT 


4250 PRINT ; PRINT "PRESSING 'C 


5060 PRINT ; PRINT ' 1, INSERT 


4040 PRINT "DRAFTING BOARD KITH 


CHANGES THE COLOR," 


AND POSITION THE TAPE." 


3 DIFFERENT NODES: ": PRINT 


4260 PRINT : PRINT "THE DISTANCE 




4050 PRINT " 1. COHPASS - TO DR 


BETWEEN ENDPOINTS, AND": PRINT 


5070 PRINT " 2. COPY OVER FIRST 


AW CIRCLES, ARCS, S 


"THE ANGLE OF THE DEFINED LI 


LINE BELOW USING R 


PIRflLS, AND OTHER CURVES": PRINT 


NE, ARE': PRINT "DISPLAYED 


IGHT-ARROW KEY, PRESSING THE 




N THE SCREEN." 


'RETURN' KEY AT T 


4060 PRINT • 2. STRAIGHTEDGE - 
TO DRAW STRAIGHT L 


4270 GOSUB 7000 


HE END.' 
5080 PRINT " 3. COPY SECOND LIN 


INES BETWEEN POINTS": PRINT 




E LIKEWISE, BUT S 


: PRINT " 3. FREEHAND"; PRINT 


Print fourth page of instructions. 


TART PLAYING BEFORE 'RETURN' 


4070 PRINT "YOU HAY SWITCH NODES 
AT ANY TINE WHILE"; PRINT 




5090 PRINT " 4. AFTER BEEP, STO 


40S0 PRINT "WORKING BY PRESSING 

'ESC'."; PRINT 
4090 PRINT " USE CTRL-E TO ERA 


4280 VTAB 2; HTAB 11: NORMAL ; PRINT 
"IN FREEHAND MODE;': INVERSE 


P RECORDER, AND C 
OPY THIRD LINE." 
5100 PRINT • 5. COPY FOURTH LIN 


3E, CTRL-S TO SAVE": PRINT 
4100 PRINT "ONTO TAPE/DISK, CTRL 
-Q TO SUIT." 


4290 VTAB 5; PRINT 'THE PADDLES 

MOVE THE DRAWING POSITION": PRINT 
"AROUND THE SCREEN.' 


E, AND YOU'RE IN T 

HE DRAFTING BUSINESSI" 

5110 VTAB 16: PRINT " CALL -151" 

continued on next page 



SoftSide July 1981 
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5560 


HONE : VTAB 21: PRINT "DON' 


5640 VTAB 16: PRINT " CALL -151" 


5120 PRINT : PRINT " 2000.3FFFR" 




T BE ALARHED WHEN YOUR DRAWI 
N6 DISAPPEARS--I WON'T 


5650 PRINT : PRINT " 2000.3FFFW" 


5130 PRINT ! PRINT " 06" 
5140 PRINT : PRINT ° GOTO 50" 
5150 VTAB 15: END 


5570 
5580 


ERASE IT!" 

PRINT : PRINT "PRESS ANY KE 
Y TO CONTINUE. . .";: GET ti 

TEH : HONE : VTAB 2: PRINT 


5660 PRINT : PRINT ' OB" 

5670 PRINT : PRINT " GOTO 6000° 

5680 VTAB 15: ENB 


Routine to save draHing on tape or 
disk. 


5590 


"TO SAVE ONTO TAPE:" 
PRINT : PRINT ° 1. INSERT 
TAPE INTO RECORDER." 


Re-entry point after saving a 
drawing to tape. 


5500 H0I1E : VTAB 21: PRINT 'SAVE 

ON TAPE OR DISK? (T/D) ";; GET 
t%: IF )($ < > "T" AND XJ < 


5600 


PRINT " 2. COPY OVER FIRST 

LINE BELOW USING R 

IGHT-ARROW KEY, PRESSING THE 

'RETURN' KEY AT T 


6000 POKE - 16304,0: HOME : ON 
MODE GOTO 1000,2000,3000: REM 
->DON'T CHANGE THIS LINE t' 


> "D" THEN 5500 




HE END," 




5510 IF n = "T" THEN 5560 


5610 


PRINT " 3. COPY THE SECOND 




5520 HOME ! VTAB 21: PRINT °INSE 




LINE LIKEWISE, BUT S 


Subroutine to wait for keypress and 


RT DISK. AND TYPE IN FILE NAM 




TART RECORDING BEFORE 'RETUR 


then paint part of screen white. 


E:": PRINT : INPUT " > ";F» 




N'." 






5620 


PRINT » 4. AFTER BEEP, TUR 




5530 PRINT CHR» (4);"BSAVE";F$i 




N OFF RECORDER, AND C 


7000 IF PEEK (KI) < NK THEN 700 


\A*2000,L»1FFF" 




OPY THE THIRD LINE." 





5540 PRINT : PRINT "PRESS ANY KE 


5630 


PRINT ■ 5. COPY THE FOURTH 


7010 POKE K2,0: VTAB 1: HTAB 1; INVERSE 


Y TO CONTINUE. ";: SET XS 




LINE, AND YOU'RE B 


: FOR 11 M TO 21: PRINT SPC( 


5550 HONE : ON NODE GOTO 1000,20 




ACK IN THE DRAFTING BUSINESS 


39);: NEKT II 


00,3000 




I « 


7020 RETURN ^ 



Games from BIG FIVE will 
turn your computer into a 



SUPER NOVA 



© 




■Huge ASTEROIDS have invaded the 
galaxy' Your mission is to destroy them 
and the alien saucers before they de- 
stroy you! " Our #1 top selling game! 

$15.95 16K Mod I or Hi 



TRS-80™ 
HOME ARCADE 

AHACK FORCE'' GALAXY INVASION'' 




"Eight alien ramships are warping down 
toward youi destroyei ship You must 
shoot them dowrn quickly before they 
crush you'" With sound' 

$15.95 16K Mod I or III 




The newest and most exciting In- 
vaders-type game yet' Smooth sound 
effects, sharp graphics, and the Flag- 
ship alien from Super Nova combine 
to make this our finest TRS-80 game'" 

$15.95 16K Mod I or III 




T5€;HfiRDSID€ (Ms 

6 South St .Millord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1.800-258-1790 



70 



SoftSide July 1981 



THREE CLASSICS 
FOR AlW APPLE II OR U plus 



THE VOICE 

If you own an Apple and have a child learning 
to read, you should have this program. Your 
child selects a sequence of words from the 
standard vocobulaiy and Demo Man happily 
repeats them. Your child instantly hears the 
sense or nonsense of the sentence. Easily record 
your own words and make your Apple say 
anything you like without adding hardware. 
Allows you to include speech in any Basic 
program using Print commands. Caution: You 
will enjoy this program as much as your kids. 
(48K) $39.95. 




BEST OF MUSE™ 

Five of our most popular games on one disk. 
Escape and The Maze Game alone are worth 
the price. Perform catchy tunes with the Music 
Box. Side Shows' six mini-games each give you 
hours of fun. Includes Tank War, an exciting 
two player shoot out, A superb value to round 
out your recreational software library. Original 
publication combined value of $64.75 
(32K) $39.95 



THREE MILE ISLAND (SPECIAL EDITION) 

Rewritten in quick response machine 
language, author Richard Orban has 
enhanced the simulation which has already 
been cited as a classic by reviewers. You ore 
put in complete control of a pressurized 
nuclear reactor. New features, Auto/Demo 
and Fast Modes, allow you to control the pace 
of this exciting full color game. Read oil you 
want about the nuke controversy, but try this 
simulation if you really wont to experience 
managing a nuclear facility. (48K) $39.95 



fsota the leader in quali^ sofhvare 



M13% 



SOFWARE^ 



Apple II is a trademark of Apple 
Computer Corp 




6 Sojth St .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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COMPUTER GRAPHICS 



PATTERN GENERATION: 
Designing Your Own Patterns 

by Joan R. Truckenbrod 

There is a wide variety of tech- 
niques that can be used to alter the 
repetitive character of regular pat- 
terns. In regular pattern design, 
modular design units are repeated in 
a regular manner, with equal spacing 
between each module. The regularity 
of patterning systems can easily be 
varied by altering the interval or 
space between the pattern elements, 
and by changing the side by side ar- 
rangement of the pattern elements to 
one another. In varying these aspects 
of a pattern, the visual effects of the 
pattern change as the background 
spaces appear differently, and the 
relationship between the elements is 
varied as they are tangent to one 
another in different areas. 

Changing the relationship between 
the elements can be accomplished by 
shifting every other horizontal row a 
distance equal to half of the width of 
an individual design unit. This shift 
changes the position of each design 
element in relation to other elements. 
In other words, these units no longer 
line up with one another, rather they 
are stepped so that the top and bot- 
tom of each element are not in line 
with the top or bottom of the adja- 
cent figure. This technique creates a 
brick pattern. In this type of pattern, 
the position of elements in the 
horizontal rows remains the same but 
the vertical row consists of offset 
figures. The grid underlying this pat- 
tern is shown under Pattern Option 
3. Examples of this type of pattern 
are illustrated with the grid. It is in- 
teresting to contrast these new pat- 
terns with the regular patterns il- 
lustrated in the May issue of SoftSide 
as the patterns appear very different 
with this slight change in the ordering 
system. The program statements used 
to create this brick pattern are 
statements to be changed in the 
original program listed in the June 
issue of SoftSide. Experiment with 
other variations in patterns that can 
be created by modifying the original 
grid with horizontal and vertical 
shifting to change the position of the 
design elements so that they are no 
longer side by side. 

Another method for creating dif- 
ferent patterns is to vary the spacing 
between the pattern elements. By 
72 



Original Program 



10 REH PATTERN GENERATION PROGRAH 

15 REM BY JO«N R. TRUCKENBROD 

20 [IIH X(25).Y(25) 

30 REM OP = NUNBER OF POINTS IN THE FIGURE 

40 »P = 7 

45 REM REM X «NII Y CUORDINATES DEFINE THE PATTERN ELEMENT 

50 FOR I = 1 TO NP 

40 READ X( I). Yd ) 

70 NEXT I 

ao DATA 0. 3. 12fO. 20. 3. 20, 20. 3. 20. 12. 3. 0.3 

as HGR : HCOLORs 7 

90 REM THE R LOOP KEEPS COUNT OF THE UERTICAL ROU NUHBER 

100 FOR R = TO 3 

110 REH THE B LOOP KEEPS COUNT OF THE HORIZONTAL COLUMN NUMBER 

120 FOR B = TO 12 

130 REH HOVE THE PEN TO THE FIRST POINT IN THE FIGURE 

140 HPLOT X(l) t B t 20>Y(1) t R » 20 

ISO REM THE FOLLOUING LOOP CONNECTS THE REMAINING POINTS IN THE FIGURE, 

160 FOR P = 2 TO NP 

170 HPLOT TO X(P) t B » 20,Y(P1 t R « 20 

180 NEXT P 

190 NEXT B 

200 NEXT R 

210 END 



Option 3 



i:^ DIM S4(2) 

U S2(l) = 0!S4(2) 



Change the following lines in the 
original program 



10 



IJO REM MOVE THE PEN TO THE FIRST POINT IN THE FIGURE 

140 HPLOT X(l) + B * 20 + S4(L)>Y(1) + R * 20 

150 REH THE FOLLOUING LOOP CONNECTS THE REMAINING POINTS IN THE FIGURE, 

160 FOR P = 2 TO NP 

1/0 HPLOT TO X(P) + B * 20 + S4(L)iY(P) + R « 20 



1V5 L = L + 1 

196 IF L < 3 GOTO 

197 L = 1 



iOO 



Option 4 Change the following lines in the 
original program 



11 UIM S2';4) 

12 FUR i = 1 TQ +1 REAH 54(1)1 NEXT I 
li DAIA 2O.O.3O1IO 



IN THE FIGURE 
* 10 



130 REM rtOVE THE PEN TO THE FIRST POINT 

140 HPLOT X(l) + S4(L) + B » 50iY(l) + R 

150 REM THE FOLLOWING LOOP CONNECTS THE REMAINING POINTS IN THE FIGURE, 

160 FOR P = 2 TO NP 

170 HPLOT TO X(P) + S4( L ) + B * 50,Y(P) + R * 10 



1*2 L = L + 1 

193 IF L < 5 

194 L = 1 



THEN GOTO 200 



leaving more space between some 
elements and less between others, 
open areas and more dense areas are 
created within the pattern. This 
technique also creates the effect of 
groups of figures within the pattern 
as illustrated in the Option 4 grid and 
pattern examples. The portion of the 
original program that requires 
changes to create this type of pattern 
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is also listed. Changing the interval 
between the design elements within 
the pattern can create a wide range of 
visually different patterns. Compare 
the sets of patterns created on the 
next page with these two alternative 
approaches and you can see that 
there is significant potential for 
creating new patterns with slight 
variations in the patterning program. 



PATTERN OPriON 3 
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Let our fingers 
do the typing! 



With a SoftSide Disk or Cassette 
subscription you can get each month's TRS-80, 
Apple, or ATARI programs delivered on 
disk or cassette with every issue of your 
SoftSide. No more hours of typing. No hunting 
for typing mistakes. The programs for your 
computer are tested and ready to go the day 
you receive them. 

If you already receive SoftSide magazine, 
you \N\\\ receive credit for the remainder of 
your subscription toward your new cassette or 
disk subscription. 

Magazine $24/year 

Magazine and Cassette $75/year 

Magazine and Disk $125/year 



Make your SoftSide library complete with back 
issues of SoftSide Apple Edition, SoftSide: S-80 
Edition, and PROG/80. Programs, games, 
complete documentation and lots more! If you 
have missed out on any past issues, now is the 
time to order. 

SoftSide: S-80, and SoftSide: Apple back issues 
(magazine only) $2.50 
PROG/80 back issues $4.00 
Magazine with Cassette programs $9.95 
Magazine with Disk programs $14.95 
New Super SoftSide back issues 
(Magazine Only) 

August or September, 1980 $3.00 
October, 1980 to present $3.50 

For descriptions of the contents of our back 
issues, please see the May, 1981, issue of 
SoftSide. 



Selections- 

^ 6 3oulh JtrB»I Milfofd NH 0J05S 
^^^ c™r n.Har. riniu mi.fiTa.fl'iH'i 



55ft5[a< 



cassette & diskette 



,^*<^ 



Collectors! Protect your SoftSide 
back issues, Volumes I and II, or 
any publication of your choice, with 
these durable wood grain vinyl 
binders with inside pocket and clear 
spine sleeve for easy Identification. 
Holds and protects 12 back issues. 
A regular $4.95 value, SALE priced 
at $3.95. Free (while the supply 
lasts) with the purchase of volume I 
or II (12 issue collection of 
SoftSide). 



Small 
8y2 XII 



$3.95 
$7.95 



■13223X131 



' GB^^SSl J 
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by Jack and Bob Wiener 

"Spacelander" is a 16K Atari pro- 
gram requiring one joystick:. 

You gain control of your space 
ship by placing the joystick into the 
slot farthest to the left. 

At the start of the game, your ship 
is placed in the upper-middle part of 
the screen where there is no move- 
ment. After a second or so, your ship 
will start moving downward, toward 
the jagged terrain of the planet. This 
downward motion occurs because of 
the gravity of the planet and if no up- 
ward motion is applied, the ship will 
start going down faster and faster. 
You can counteract this gravity to 
slow down or raise the ship by 
pushing the joystick forward. To 
steer your ship to the left, right, up- 
per left, or upper right, just push the 
joystick in the direction you want to 
go. However, everytime you use your 
engines, you burn up fuel. One unit 
of fuel is lost by left and right 
movements, two units of fuel are lost 
by upward motion, and 300 units are 
lost by crashing. 

In the bottom half of the screen 
there are five different landing pads, 
four with numbers and one with a let- 
ter. The numbers stand for points, 
while the letter stands for fuel. 

Guide your ship toward the land- 
ing pad you want to land on. When 
you get close to the landing pad, a 
blown-up version of that landing pad 
will appear on the screen. You now 
want to guide your ship in for a soft 
landing on the pad. Both legs of your 
ship have to be on the pad, and it 
can't be a hard landing. When you 
finally land, you will be credited with 
either the points or more fuel, and 
you will then continue your game 
from the starting position. 



Spacelander 



To determine how many points a 
landing pad is worth, you just 
multiply the number below the pad 
by 100. 

When you land at the fuel landing 
pad your ship will be refueled to 1500 
which is the maximum amount of 
fuel. Good luck and happy landing. 

VARIABLES 

FU: Fuel. 

X, Y: Coordinates of ship. 

H: Horizontal movement of ship. 



U: Power up. 

D: Power down (gravity). 

F5: Out of fuel indicator; shuts off 

engines. 

V: Velocity. 

S: Sound up. 

F: Sound left and right. 

SC: Score. 

B: Base you are near. 

C 1-8: Determines if crash or land. 

E: Error indicator. 

L, LI: Timer loop. 

N: Note. 

A: Volume. 




1 REH SPACELANDER BY JACK AND BOB NIEN 
ER 

Set fuel to ISOO; go to title and 
song. 

9 FU=1500:60SUB 290 

Set Stirling position of lander; stop 
all lotion; go to landscape. 

10 GRAPHICS 7!)l=80!^=l05H=0!U=0:D=0:60 
SUB 1000 


nain gaie loop: 

0(1 an error, go to subroutine that 
changes landscape. 

59 TRAP 900 

Draw ship and deteriine if the 
joystick is operational. 

iO COLOR 2:PL0T )(,Y:PLOT X+1,Y:PL0T I* 
2,Y+liPL0T X+2,Y+2:PL0T X+l,Y+3iPL0T X 
,r+3iPL0T X-1,Y+2!PL0T X-1,Y+1 


61 PLOT X+2,Y+4;PL0T X-1,Y+4:F=0:IF F5 
=1 THEN SOTO 81 

Left and right ioveient of ship. 

70 IF STICKIOXB THEN H=H+0.05iF=l 

80 IF STICK (0)>8 AND STICK (OX 12 THEN 
H=H-0.05!F=2 

Left and right engines. 

81 IF F=l THEN COLOR l.'PLOT X-l.Y+l.-PL 
OT X-l,Y+2 

continued on next page 
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continued from previous page 

82 IF F=2 THEN COLOR liPLOT X*2,1*\\?l 
OT l(+2,Y+2 

Set laxiiuis for left and right speed. 

83 IF H>2 THEN H=2 
85 IF H<-2 THEN H=-2 

Deteriine speed of upNard iotion, 

90 IF U+D<0 THEN V=0.03 

91 IF U+D>0 THEN V=0.06 



Gravity. 

92 D=D+0.02:S=0 




Set fuel gauge to zero and shut off 
engine when out of fuel. 

95 IF FU<1 THEN FU=0:F5=1 

99 IF F5=l THEN 103 

Upward loveient and engine. 

100 IF STICK(0)=6 OR STICK(0)=14 OR ST 
ICM0) = 10 THEN U=U-V:COLOR liPLGT X,Y+ 
4!PL0T Xtl,Y+4iS=l 

Sound of engine; decrease the fuel. 

103 IF 3=0 THEN SOUND 0,0,0,0!SOUND 1, 
0,0,0 

104 IF F=0 THEN SOUND 2,0,0,0 

105 IF S=l THEN SOUND 0, 150,8, I0:S0UND 
1,180,2, 10: FU=FU-2 

107 IF F>0 THEN SOUND 2,75,8, lOiFU^FU- 
1 

Erase last location of ship. 

108 COLOR 0:PLOT X,Y:PLOT X+1,Y:PL0T K 
+2,Y+1:PL0T X+2,Y+2!PL0T X+1,Y+3:PL0T 
)(,Y+3;PL0T M,Y+2:PL0T M,Y+1 

109 PLOT J(+2,Y+4:PL0T M,Y+4:PL0T X.Y 
+4!PL0T )[+I,Y+4 

110 POKE 752,l!P0KE 454,1:P0KE 657,2:? 
"FUEL "jFU;" "i:POKE 457,22:? 'SCORE 

"iSC 

Deteriine Mhen to go to larger 
landscape of nearby base. 



112 IF B>0 THEN 117 

113 IF i>m m um and y>29 and y< 

50 THEN 80SUB 3000 

114 IF K34 AND t)b AND Y>37 THEN SOSU 
B 4000 

115 IF D36 AND K46 AND Y>34 THEN GOS 
UB 4050 

114 IF )(>136 AND X<151 AND Y>48 THEN G 
OSUB 4100 

117 IF B=l AND 1(>5 AND K79 AND Y>30 T 
HEN GOSUB 4S0O 

Fuel Naming. 

119 IF FU<300 THEN POKE 752,1:P0KE 454 
,1:P0KE 457,2:? "FUEL"! 

Noveient of ship. 

120 1(=1(+H;Y=Y+U+D 
Nrap-around lovetent of ship. 

121 IF B=0 AND K3 THEN X=156 

122 IF B=0 AND X>154 THEN X=4 

123 IF B=0 AND Y<3 THEN Y=5 

Deteriine if ship is landing or 
crashing. 

130 LOCATE X-1,Y+4,C1:L0CATE X+2,Y+4,C 
2:L0CATE X,Y,C3:L0CATE X+1,Y,C4:L0CATE 

X-1,Y+1,C5 

132 LOCATE X-1,Y+2,C4:L0CATE X+2,Y+1,C 
7:L0CATE X+2,Y+2,C8 
135 IF Cl=3 OR C2=3 OR C3=3 OR C4=3 OR 

C5=3 OR C4=3 OR C7=3 OR 08=3 THEN 400 


140 IF Cl=l OR C2=l THEN GOTO 145 
150 GOTO 59 

(End of lain gaie loop.) 



Deteriine if landing nis successful. 

145 IF D+U>=0.75 OR CIOI OR C201 THE 
N 4000 

Ship-landed subroutine. Increase 
score, cheer landing. 

170 SETCOLOR 2,0,8;SETCOL0R 1,8,4:SETC 
OLOR 0,4,4!Y=Y-1 

172 COLOR 2:PL0T X,YjPLOT X+1,Y:PL0T X 
+2,Y+1:PL0T X+2,Y+2:PL0T Xtl,Y+3:PL0T 
X,Y+3:PL0T X-1,Y+2!PL0T X-1,Y+1 

173 PLOT X+2,Y+4!PL0T X-l,Y+4 



174 IF B=l THEN SC=SC+100 

175 IF B=2 THEN SC=SC+200 
174 IF B=3 THEN SC=SC+300 

177 IF B=9 THEN SC=SC+900 

178 IF B=5 THEN FU=1500:F5=0 

200 COLOR 2:PL0T X,Y-1:PL0T X,Y-2:PL0T 
X,Y-4!C0LQR l-.PLOT X,Y-3:DRAt(T0 X+2,Y 

-3 

205 COLOR 3;PL0T X+1,Y-4:PL0T X+2,Y-4 

210 POKE 752,1:P0KE 454,1:P0KE 457,2:? 
"FUEL "jFU;" "liPOKE 457,22:? "SCORE 

•|SC 

240 FOR L=0 TO 3:S0UND L,0,0,0:NEXT L: 

RESTORE :FOR L=l TO lOiREAD N: SOUND 0, 

N,10,14 

270 FOR Ll=l TO 40:NEXT L1:NEXT L 

284 SOUND 0,0,0,0 

285 FOR L=l TO 700:N£XT L:60T0 10 

Opening print stateient. 

290 GRAPHICS 18:P0SITIQN 5,4:? 14; "SPA 
CE LANDER"; 

Beginning and ending song, 

295 RESTORE :FOR L=l TO 10:READ N:NEXT 
L 
300 FOR L=l TO 10:READ N,N1:S0UND 0,N, 
10,14:F0R LIM TO 40IN1:NEXT LliNEXT L 
: RETURN 

Coloring subroutine. 

400 SETCOLOR 1,8,4:SETC0L0R 0,4,8:SETC 
OLOR 2,12,B:RETURN 

Deteriine where ship appears, if it 
leaves the large landing base. 

900 GRAPHICS 7 

905 IF B=l THEN Y=30:IF X<37 THEN X=37 

910 IF B=2 THEN X=112:Y=25 

920 IF B=3 THEN 60SUB 4050:60T0 59 

930 IF B=5 THEN X=20:Y=2B 

940 IF B=9 THEN XM42:Y=48 

Execute coloring subroutine. 

1000 GOSUB 400 

DraN lain landscape. 

1010 B=0:COLOR 1:PL0T 13,49:DRANT0 19, 
49:PL0T 44,54:DRANT0 52,54;PL0T 84,74: 
DRANTO 94,74 

1020 PLOT 109,50:DRAIIT0 115,5O:PL0T 14 
4,73:DRAMT0 150,73 
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1060 COLOR 3:PL0T 0,79:DRftKTQ 4,40:DRft 

HTO IS.A^iDRANTO tO,S2:DRANTO 7,60:DRA 

NTO 12,69 

1070 PLOT 16,50:DRAHT0 19,5l!PL0T 20,6 

I'.DRftWTO 2*,62;DRA«T0 20,57:DRAIIT0 25, 

63 

1080 PLOT 25,63:DRAMT0 35,40!DRANT0 45 

,56!PL0T 159,79:DRANT0 150,62iDRA«T0 1 

51,73 

1090 PLOT 150,62!DRAIIT0 146,58:DRA«TG 

140,64:DRA«T0 130,7l!PL0T 143,73:0RANT 

142,79 

2000 PLOT 116,50iDRA«T0 124,40!DRANT0 

123,65!DRANT0 113,7O!DRA«T0 115,79 

2010 PLOT 108,50:DRANT0 100,38!PLOT 11 

2,70:DRA«T0 94,60:0RAHT0 80,65!PL0T 95 

,75:DRAHT0 115,79 

2020 PLOT 85,75:DRAKT0 84,79!PL0T 53,5 

6iDRA«T0 60,79!PL0T 79,65!DRANT0 63,56 

:DRAKTO 94,60 

2030 PLOT 85,75:DRAHT0 60,79!PL0T 108, 

SOsDRANTO 123,65!PL0T 99,38:0RAtlT0 63, 

56 

2037 PLOT 95,74:DRANT0 113,71:PL0T 123 

,65:DRAI(T0 138,50:DRAI(T0 123,53 

2040 COLOR 2!PL0T l5,7l!DRA«T0 13,71:0 

RAHTO 13,73:DRAtlT0 15,73iPL0T 13,73!DR 

AHTO 13,75:PL0T 48,58;DRflKT0 48,63 

2050 PLOT 150,79!DRANT0 150,75!DRA»T0 

147,75!DRANT0 147,77!DRAI*T0 150,77 

2060 PLOT 116,52!PL0T 117,5l!PLQT 118, 

52:PL0T 118,53:DRAMT0 116,SS:DRAMT0 11 

8,55 

2065 PLOT 90,75:DRAMT0 93,75iDRAI*T0 93 

,79!DRAIIT0 90,79:PL0T 90,77:DRAyT0 93, 

77: SOTO 59 

Landscape for 200-point base. 

3000 6RAPHICS 5:)(=35!Y=1:60SUB 400 
3010 COLOR 1:PL0T 37,35:DRAWT0 42,35;C 
OLOR 3: PLOT 43,34:DRAMT0 46,28:DRA«T0 
55,24:DRANT0 79,9 

3020 PLOT 36,35:PL0T 36,34:PL0T 35,33: 

PLOT 34,32:PL0T 35,31:PL0T 35,30:DRAKT 

33,24 

3030 DRAMTO 25,20:DRAI)T0 23,15!DRANT0 

15,23:0RAHT0 0,9 

3040 B=2;RETURN 

Landscape for fuel base. 

4000 6RAPH1CS 5:X=45:Y=0:60SUB 400 



4010 COLOR 1:PL0T 37,39:DRAWT0 42,39:C 

OLOR 3: PLOT 36,38:DRANT0 20,31:DRA»IT0 

15,24:DRAKT0 21,17:DRAKT0 38,12 

4015 DRANTO 47,16;DRAMTQ 10,0:DRAI*T0 

,15 

4020 PLOT 43,38:DRfl«T0 56,31:DRAKT0 79 

,4:PL0T 56,31:DRAHT0 32,22 

4025 PLOT 38,12:DRAHT0 47,16 

4030 8=5: RETURN 

Landscape for 100-point base. 

4050 GRAPHICS 5:Y=0;805UB 400 

4060 COLOR hPLOT 38,33:DRANT0 34,33:0 

OLOR 3:DRAWT0 20,10:DRflNTO 0,25 

4070 PLOT 39,34:DRA«T0 42,39;PL0T 50,3 

3iDRA«T0 79,39:PL0T 50,33;DRAHT0 79,22 

4075 IF 8=3 THEN X=43;Y=30 

4080 B=1:RETURN 

900-point base. 

4100 GRAPHICS 5:)[=40:Y=3:50SUB 400 

4300 COLOR hPLOT 38,2B:DRA«T0 43,28:0 

OLOR 3!PL0T 37,27:DRANT0 29,39:DRAI(T0 

5,39:DRAHT0 0,33:PL0T 17,31:DRAHTQ 23, 

31 

4310 DRAWTO 43,10:DRAWT0 63,39:PL0T 0, 

33:DRANTD 12,25:DRAtlT0 31,12:DRANT0 30 

,B:PLOT 44,27:DRAKT0 52,25 

4320 PLOT 41,21:DRANT0 50,21:PL0T 41,2 

hDRAWTO 47,17 

4325 PLOT 63,39:DRANT0 79,15:PL0T 30,8 
:DRANTO 10,12:DRAMT0 10,0 
4330 B=9!RETURN 

300-point base. 

4500 GRAPHICS 5:X=2:Y=0;60SUB 400 
4510 COLOR 1:PL0T 50,34:DRANT0 55,34:C 
OLOR 3:DRANTQ 79,39:PL0T 49,34:DRAtiT0 
48,39!PL0T 49,34:DRANT0 17,39;DRA«T0 2 
,8 

4520 PLOT 12,0:DRAtlTO 44,26:DRAt(TD 48, 
26:DRANT0 65,12;PL0T 56,34:DRANT0 78,3 
0; DRAMTO 65,12 

4521 PLOT 12,0:DRAt(TO 65,12:PL0T 79,39 
: DRANTO 7B,30 

4530 B=3: RETURN 



Error for crashing, used if point of 
crash goes off screen. 

5999 E=1;B0T0 6009 



Crash routine; Blott up ship, rotate 
screen colors, sound explosion, reduce 
fuel. If no fuel left, go to end 
routine. 



6000 COLOR 0:PLOT X,Y:PLOT X+1,Y:PL0T 
X+2,Y+1:PL0T X+2,Y+2:PL0T X+1,Y+3!PL0T 

X,Y+3:PL0T X-1,Y+2:PL0T X-1,Y+1 

6001 PLOT X+2,Y+4:PL0T X-1,Y+4:PL0T X, 
Y+4:PL0T X+l,Y+4 

6002 FOR L=0 TO 3:S0UND L,0,0,0:NEXT L 
:E=0 

6007 A=11:SETC0L0R 4,3,B:F0R L=l TO 10 

6008 TRAP 5999 

6009 IF E=l THEN FOR Ll=l TO 10:NEXT L 
hGOTO 6035 

6010 COLOR 2;PL0T X,Y-L;PLOT X+1,Y-L:P 
LOT X+2+L,Y+l:PL0T X+2+L,Yt2;PL0T XH, 
Y+3+L:PL0T X,Y+3+L 

6011 PLOT X-1-L,Y+1:PL0T X-1-L,Y+2:PL0 
T X+2,Y+4+L:PL0T X-l,Y+4+L 

6015 FOR Ll=l TO 25:NEXT LI 

6020 COLOR 0:PLOT X,Y-L;PLOT X+1,Y-L:P 
LOT X+2+L,Y+l:PL0T X+2tL,Yt2:PL0T X+1, 
Y+3+L:PL0T X,Y+3+L 

6021 PLOT X-1-L,Y+1:PL0T X-1-L,Y+2:PL0 
T X+2,Y+4+L:PL0T X-l,Yt4+L 

6035 SOUND 0, (RND;0)«30)+40,0,A:SOUND 
1,(RND(0)«30)+40,2,A:SOUND 2,(RND(0)«3 
0)M0,6,A 

6053 A=A-1;SETCOLOR 4,INT(RND(0)«15),8 
:NEXT L 

6054 SETCOLOR 4.0,0:FU=FU-300 

6065 FOR L=0 TO 3;S0UND L,0,0,0:MEXT L 
:FOR L=l TO 200:NEXT L 
6070 IF FU>0 THEN 10 

End of gate. 

7000 GRAPHICS 18:P0SITI0N 5,0:'' 16; 'YO 
UR SCORE":POSITION 9,5:? i6)'IS':P0SIT 
ION 8,10:? I6;SC:60SUB 295 

Data for opening and closing song. 

7100 DATA 121,108,96,81,81,96,81,81,81 
,81,243,4,162,4,121,6,96,2,102,4,243,4 
,162,4,121,6,81,2,60,8 q 
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TRS-80 seRsatioRal 

software 



GPeative 

GOIRputtRC^ 

software 



Stock & Options Analysis 



Cassette CS-3306 ( 1 6K). $99.95 

DiskCS-3801 {32K), $99.95 

Should you hedge, buy, or sell out? Stock 
and Options Analysis puts a securities advisor 
in your computer, providing you with four 
powerful investment tools. Option gives 
important indices for opening and closing 
call option transactions. Opgraph presents 
a graph or table of profit for any combination 
of long or short calls, puts, and stocks. Tfiis 
allowsthedetailedevaluationof three types 
of hedges. Newprem helps predict the future 
premiums of an option at any desired time 
and future stock price. Portval lets the 
computer do the paperwork, providing full 
portfolio services, including value per share, 
current value, and capital gain. The program 
includes the effects of commissions, margin 
interest and dividends. Beyond helping to 
organize and evaluate your present portfolio, 
Stock and Options Analysis is an excellent 
aid for planning and testing future 
strategies. The comprehensive 24-page 
manual with this package not only shows 
how the programs work, but isalso a primer 
on the strategy of hedging listed options 
against common stocks. This strategy has 
been repeatedlyshown to actually be more 
conservative and more consistently profitable 
than straight buying and selling of stocks. 




Solar Energy Analysis 



Cassette CS-3307 (16K), $49.95 
Disk CS-3802 (32K) $99.95 

F-Cfiart Solar Energy Analysis eliminates 
many of the tedious calculations required 
when designing solar-heating systems 
Beyond providing a thermal analysis, the 
program allows designers to quickly deter- 
mine the effects of changing any specifica- 
tions, allowing fast, accurate, and Inexpensive 
experimentation. 

Systems using air, liquid, or domestic hot 
water in any climate can be analyzed in 
detail- The program expands the traditional 
F-Chart procedure by taking ground-water 
temperature into account and allowing for 



Available 7/81 



mixing valves in domestic hot water systems 
F-Chart Solar Energy Analysis quickly pays 
for itself by freeing you from time-consuming 
calculations. 

The disk version of the program mcludes 
a data base of all necessary climatic data 
for any location in the United States These 
data are in the printed booklet included 
with the cassette version but must be entered 
manually for your geographic location 




Personal Address and 
Information System 



Text Processing 



Disk CS-3509 /32K) $24.95 

Isyouraddress book beginning to resemble 
a heavily-edited inkblot? Do your friends 
keep moving, forcing you to cross out and 
rewrite addresses and phone numbers'^ Let 
the Personal Address & Information System 



turn filing drudgery into computing pleasure. 
You can store all the crucial information, 
including name, address, home and work 
phone numbers, spouses name, and 
comments or remarks. At any time, the 
information can be edited or changed. 

And there's more. Names can be sorted 
in alphabetical order. Entire entries can be 
printed, as well as mailing labels Names 
can be searched for by first letter. In a 32K 
system, you can search any record for up to 
two key phrases, turning Personal Address 
& Information System into a versatile filing 
system with unlimited uses. 
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Cassette CS-3302 (16K) $14.95 



This program turns a 16K. TRS-80 and 
lineprinter into a line oriented text-processing 

system. 



„ MS IS nc imm aam cmtim iexi msssi: 
yi nan sum UNnni things, wr it cmut bh you! 
>3EUcmc«««n. iTisiiiKMiaiiimfBiuiKm 

M fl IBT Mff SSW TO TUB m TIC am POT (» UK TK 
>S DiCTRIC UDKET. KIT I Ml WT A (MY H MD CM IH.V 
X DO NNMC THINGS LIKE OOI 01 CMCTING IW UT SHU 
}7WIS. 



CS-3504Disk(32K)$24 96 
(Disk includes Cliecking 
Accoun(. CS- 3304) 





CtMMMDS 


c 


CCWTINIC LIST. 01 SCREDI 


D 


KlElUlf 


t 


aiT 


I 


IHSKT LlIC 


K 


RES«€ KEYING 


L 


LIST ON SCKH 


P 


PRIKI HORJ CCPY 


Q 


aUITPWQWl 


T 


SflVEONTOre 


crnvto? 





Developed exclusively for the TRS-80 
this program lets you use the computer to 
enter general text or business letters, edit 
and modify your work, save text on cassette 
tapes, and print out a perfect report, docu- 
ment, or letter every time. 



Editing commands are similar to those 
used in Level II BASIC, so there are no 
complicated new commands to Veain \_mes 
may be either inserted ordeleted. A special 
format is available to speed entry of business 
letters. Final printout can be done in 
numbered pages and you may print multiple 
copies 



Business Address & 
Information System 

Disk CS-3510(48K) $24.95 Available 7/81 

Do you need quick access to business 
contacts and customers? Put more organiza- 
tion in your organization with the Business 
Address & Information System. A complete 
file containing company name, address, 
phone number, and comments can be quickly 
entered and stored. Information can be 



changed or edited whenever necessary. 
The program allows entire entries to oe 
printed, and can also generate mailing 
labels. 

When you need information fast, you can 
search for specific names or find all entries 
that contain one or two key phrases. Any 
key phrases can be used. Business Address 
& Information System will help you make 
the most of your time, putting the routine 
work in the computer where it belongs. 



Order Today 



To order any of these software packages. 
send payment plus $2.00 postage and 
handling per order to Creative Computing, 
Morris Plams, NJ 07950 Visa. MasterCard 
and American Express orders may be called 
m toll-free. 



Order today at no risk If you are not 
completely satisfied, your money will be 
promptly and courteously refunded 

Creative Computing Software 
Morns Plains. NJ 07950 
Toll-free 800-631-8112 

In NJ 201-540-0445 
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seRsatioRal 
software 



GPeative 

GoiRputiRt^ 

software 




CS-3207 TRS-80 Cassette (32K) ^^. q. 
CS-3703 TRS-80 Disk (32K) ^^ 

Trucker 

This program simulates coast-to-coast 
trips by an independent trucker hauling 
various cargos The user may haul 
oranges, freight or U.S. mail. All have dif- 
ierent risks and rewards. Maximum profit 
comes from prudent risk-takmg. 

If all goes well, you can obey the speed 
limits, stop for eight hours of sleep each 
night and still meet the schedule. Bad 
weather, road construction or flat tires 
mav put you behind schedule. You may try 
to increase your profit by skimping on 
sleep, driving fast or carrying an over- 
weight load 

Other factors are choice of routes, truck 
payments, fuel. food, tolls and fines. The 
simulation is engrossing and informative. 



Trucker 

and 

Streets 



of the City 



streets of the City 

This simulation Is modeled on Grand 
Rapids, rvlichigan, a metropolitan area with 
a population of 550,000. The budgeting, 
cost and work standard bases are derived 
from actual experiences of the city over 
the past five years. The objective of the 
simulation is to complete a ten-year plan 
of street and transit improvements while 
retaining the support of a majority of the 
City Commission. 

During your tenure, you must construct 
streets and Interstate highways, repair 
existing streets, and improve traffic safety. 
For the Transit Authority you have to up- 
grade and replace a delapidated bus fleet. 
increase ridership, reduce maintenance 
downtime and improve on-shedule perfor- 
mance 

Other factors to be considered are oper- 
ating tax levies, construction bonding and 
labor negotiations. The simulation pro- 
vides a substantial challenge and it is both 
educational and entertaining. 



Hail to the Chief 




Phillip W. Bnishear 

and 
Richard G. Vance 



TRS-80 Disk. 48K 



$24.95 



Your object in this simulation is to be 
elected president. In your campaign you 
set your strategy and carry it out week by 
week. You may run TV or magazine ads. 
travel to different states, hold news con- 
ferences and participate in a debate. 

You must take a 'xisition on ten campaign 
issues such as Energy Policy. Unemploy- 
ment. Taxes. I\/Iid-East Policy and Strategic 
Arms Limitations. You must manage your 
fund raising efforts to business, tabor and 
mass direct mail solicitations. 

The package includes four models of 
varying complexity; each can be used at 
ten levels of difficulty. The more complex 
models introduce the influences of incum- 
bancy. campaign finance and spending 
limits. 

Hail to the Chief has been used as a 
teaching aid in Political Science. Voting 
Behavior and Computer Science at the 
University level since 1976 It is a well 
proven package which includes a compre- 
hensive manual. 



3 Adventures 



DiskCS-3516 S39 95 
Requires 32K 




Adventureland (by Scott Adamsi 

You II encounter wild animals, 
dwarfs and many other puzzles 
and perils as you wander through 
an enchanted world trying to res- 
cue the 13 lost treasures Can 
you rescue the Blue Ox from the 
quicksand'^ Or find 'your way out 
of the maze of pits"^ Happy 
Adventuring' 

Pirate Adventure (by Scoll 
Adams)- Yo Ho Ho and a bottle 

of rum. You II meet up with 

(he pirate and his daffy bird along 
with many strange sights as you 
attempt to go from your London 
flat to Treasure Island Can you 
recover Long John Silvers lost 
treasures'? Happy sailing matey 

fVIission Impossible Adventure (by 

Scott Adams)- Good fvlorning 
Your mission s to and so it 
starts Will you be able to complete 
your mission in time"^ Or is the 
worlds first automated nuclear 
reaclor doomed'^ This one s well 
named its hard there is no magic 
bul plenty of suspense 
Good Luck 



Voodoo Castle 
The Count and Ghost Town 



Voodoo Castle (by Scott Adams) Count 
Cristo has had a fiendish curse put on him 
by his enemies. There he lies, you are his 
only hope . . . will you be able to rescue 
him — or is he forever doomed? Beware 
the Voodoo man. 

The Count (by Scott Adams) You wa 
in a large brass bed somewhere in 
sylvania. Who are you, what are you 
here, and why did the postman del 
bottle of blood"^ You II love this Adve 
In fact, you might say its Love at 
Byte. . . 

Ghost Tovtfn (by Scott Adams) Explt 
deserted western mining town in sea 
1 3 treasures. From rattlesnakes to runa 
horses, this Adventure has Ihem all 
remember, pardner. they don ( call 
Ghost Towns for nothin' (Also include: 
new bonus scoring system ) 



DiskCS-3517 S39 95 
Requires 32K 




arch 



Original Adventure 

DiskCS-3518(48K) $1995 

This IS the original adventure game complete 
with a colossal cave populated with nasty 
little dwarves, a giant clam, troolsand much, 
much more Includes the SAM76 language 
in which the game runs 



Adventures on Cassette 

Five adventures are available separately 

on cassette. Each requires 16K and costs 

$14 95 

CS-3007 Adventureland 

CS-3008 Pirate Adventure 

CS-3009 Mission Impossible 

CS-3010 Voodoo Castle 

CR-3011 The Count 



Order Today 



To order any of these software packages 
send payment plus S2 00 postage and 
handling per order to Creative Computmg 
Morns Plains NJ 07950 Visa MasterCard 
and American Express orders may be called 
in toll-tree 



Order today at no risk If you are not 
completely satisfied your money *will be 
promptly and courteously retiinded 

Creative Computing Sollware 

Morris Plains NJ 07950 

Toll-free 800-631-81 12 

In NJ 201-540-0445 
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Lemonade or Champag ne 



Will Hagenbuch has been in the 
software business for some time now, 
writing business and utility programs 
such as "File Manager 80", "Ac- 
counts Receivable", and "Utility". 
This is the second part of the 
serialization of his book: Lemonade 
or Champagne, a guide to the crea- 
tion of business software. 




by Will Hagenbuch 

This month we will continue the 
description of the Program Design 
Description Form shown in last 
month's SoftSide. Each entry into 
the "filename" column should have 
a reference to one of the backup sec- 
tions of the manual. In the case of a 
Program or Interface file, you will 
most likely be referring to Section 5 
where a program listing, program or 
routine description, or other such in- 
formation will be provided. If the 
filename refers to either a Permanent 
or Temporary Data File, then you 
should key your reference to Section 
4 which contains the Record Layout 
for that Data File. 

On the extreme right side of the 
Program Design Description, three 
symbols are provided to identify 
printed reports or listings which are 
created by the program or program 
module. These Output (O/P) Docu- 
ment symbols provide for up to three 
different formats of reports which 
may be produced by the program or 
program module being described. 
Each of the symbols contains 
80 



reference to Section 3 of the manual 
where the Line Printer Format Forms 
should be contained. 

Directly in the center of the Pro- 
gram Design Description form, you 
will find a block titled "PROCESS". 
This represents your program or pro- 
gram module. This symbol should be 
referenced to Section 5 of the manual 
which should contain the Operating 
Instructions for the program or pro- 
gram module. You will also note that 
lines connect all of the I/O symbols 
to this "process" symbol. Obviously, 
the line from the CRT symbol is con- 
sidered "Input" while the line going 
to the Report symbols is considered 
to be "Output". It may, however, 
prove beneficial if you would place 
appropriate arrows on the lines be- 
tween the "process" symbol and the 
Tape or Disk storage symbols to 
identify the direction of flow of data 
to or from the files. 



SOURCE DOCUMENT 
DESCRIPTION FORM 

The Source Document Description 
Form, shown as Figure 2-2, is con- 
tained in Section 1 of your System 
Design and Manual. This form 
is used to provide examples of all of 
the documents that provide the 
source of input data to the computer 
operator. These input forms, which 
we will call Source Documents, may 
either be ones that are commercially 
available, such as Invoices in an Ac- 
counts Payable application, or ones 
that have been locally developed by 
the Client company or even ones that 
have been devised by you. As we 
stated earlier, you would be well ad- 
vised to retain as many of the forms 
as possible that are now being used. 
This will help you immensely when 
you come to installing your system 
because they will be "familiar" to the 
Client and his staff. 



SOURCE DOCUMENT 
DESCRIPTION 


SYSTEM 


PROGRAM 


MODULE 


PURPOSE 


SOURCE 




KEY 


DATA ELEMENT DESCRIPTION 


Vac 


Ret 


KEY 


DATA ELEMENT DESCRIPTION 


Var 


Ret 
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SECTION 1 PAGE 





FIGURE 2-2 
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VIDEO DISPLAY FORMAT 
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FIGURE 2-3 



LINE PRINTER FORMAT 


SYSTEM 
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SECTION 3 PAGE 



FIGURE 2-4 



In completing the Source Docu- 
ment Description form, fill out the 
top line with the same information as 
you placed on the Program Design 
Description form which references it. 
On the next line you should provide a 
short narrative of the purpose of the 
form and identification of the source 
of the form (where and by whom it is 
completed). Either draw a facsimile 
of the form or affix a sample of it in 
the body of the Source Document 
Description. 

The bottom section is for the 
recording of the Data Elements in- 
cluded in the document we are de- 
scribing. We usually find that the 
best method of doing this is to 
number the Data Elements on the 
document facsimile and use this 
number as the "key" in the bottom 
section. This "key"number would be 
followed with the name or descrip- 
tion of the Data Element, the 
variable name that will be assigned to 
that Data Element throughout the 
system, and a reference to the Record 
Layout in which it will appear. 
Obviously, the "Var" (Variable 
Name) and "Ref" (Reference) fields 
may not be known when this form is 
originally completed and this infor- 
mation may be backfit at a later 
date. 

Each completed Source Document 
Description form is assigned a se- 



quential page number which is placed 
in the "reference" of the correspond- 
ing Input Document symbol on the 
Program Design Description Form. 

VIDEO DISPLAY 
FORMAT FORM 

The Video Display Format form, 
shown as Figure 2-3, is used to plan 
your video screen layouts. The form 
is arranged with 16 lines of 64 col- 
umns each to accommodate the 
TRS-80™ and several other micro- 
computer screen display sizes. 

After identifying the System/ 
Program/Module across the top line 
of the form, it would be a good idea 
to write in some brief comments 
about what purpose this format 
serves. You should now complete the 
screen layout in the manner 
you would like it to appear for the 
operator. Keep in mind when doing 
so that you will only have to look at 
the display while you are developing 
the system, the operator will have to 
look at it day in and day out. Take 
the little extra effort to make it pleas- 
ing to the eye — center information 
that can be so done, and use strings 
of equals ( = ) or minuses (-) or 
asterisks (*) to break up the 
monotony. It is not recommended 
that you use graphics characters, 
however, for the reasons mentioned 
in Section I — they may not be 
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"transportable" if you want to later 
"up-line" the program. 

The "technical notes" section is 
placed under the screen display area 
to provide space for making notes of 
things that apply to the display. For 
example, you should always note 
when Ones you have shown are op- 
tional and might only be displayed 
under certain conditions. You might 
also want, in this section, to make 
notes about which screens will follow 
if a certain function is selected from 
the screen being shown (assuming it is 
a processing menu selection screen). 

When the Video Display Format 
Form is completed, it is assigned a se- 
quential page number which is 
backfit to the applicable Program 
Design Description form as a 
"reference" for the CRT symbol. 
The form is then filed in Section 2 of 
your System Design Manual. 

LINE PRINTER FORMAT FORM 

The Line Printer Format Form, as 
shown in Figure 2-4, is just that; it is 
used to plan the layout of your 
printed reports and listings. Like the 
Video Display Format form, this 
form is invaluable when it comes to 
programming because how else will 
you know where to set tabs to print 
the format you want? 

As you can see, the form shown is 

continued on next page 
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continued from previous page 

for an 80-column printer. Should you 
have a printer that will print more 
columns, then you will need some 
printer spacing charts that accom- 
modate your printer. Whatever form 
you use, we strongly recommend that 
before you begin to code your pro- 
gram you place little "X"s where you 
want the data to be placed on the 
report, give the form a sequential 
page number, back fit the page 
number to the Program Design 
Description reference, and file it in 
Section 3 of your System Design 
Manual. 



RECORD LAYOUT FORM 

In Section 1, we discussed the 
Record Layout and the fact that a 
form of this type should be prepared 
for each Data File that is required by 
your system. Figure 2-5 shows our 
version of the Record Layout Form. 

We will not amplify on the 
preparation of this form at this point 
because we will be treating the con- 
tents of this document in greater 
depth in Sections III and IV. It will 
suffice to say that this form, when 
complete, will also be assigned a se- 
quential page number, backfit to the 
filename reference on the Program 
Design Description form, and filed in 
Section 4 of your System Design 
Manual. , 



SECTION III - USING DISK FILES 

Section III will take a look at some 
of the finer points of programming 
the TRS-80™ and, in particular, 
the subject of Random Disk Files. 
This subject, which is considered to 
be so very important in the develop- 
ment of business data processing 
systems, has, heretofore, been 
treated very lightly by available 
reference materials. In this Section 
we will explore several of the many 
alternatives open to the programmer 
for the construction of random data 
files on disk and show several ex- 
amples of how these alternative file 
structures might be employed in 
business appHcations. 



RANDOM FILES 

As we will know from even a cur- 
sory glance at our Disk Operating 
System instruction manual, there are 
two methods for storing information 
on diskette — sequential and ran- 
dom. Sequential does not seem to 
82 . , . 
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pose a problem for most readers since 
it is simply a carry-over from the 
methods employed to write cassette 
tape files. However, the employment 
of random file techniques is another 
story. 

The Disk Operating System 
manual lists a variety of advantages 
offered to the programmer who uses 
randomly accessed record files. Some 
of these advantages are not readily 
visible to the programmer, such as 
the space-saving features of a single 
Input/Output (I/O) buffer. What is 
apparent are the time savings 
achieved from the direct accessing of 
a desired record. After titillating the 
reader with the many time-saving vir- 
tues of random accessing, the manual 
leaves the reader with the promise 
that once you have set up the file 
structures, random I/O becomes 
quite simple; however, and I quote: 
' 'This is the hard part — it takes a lit- 
tle thought!" (Amen) 

While no intent is being made to 
take a "cheap shot" at the authors 
of the Disk Operating System manual 
(in fact, it is an excellent condensa- 
tion of a very involved subject and 
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provides the "mechanics" of how to 
do it), it seems that somewhere 
among the next ten and one-half 
pages many readers lose the bubble. 
Be it on the first page, or somewhere 
around the middle, many readers 
tend to adopt the attitude that "Oh 
well, I know how to write sequential 
files. I'll just stick with that until 
someone explains all of this to me." 
The problem with this laissez faire at- 
titude is that seldom does one achieve 
his goal or satisfy his thirst for 
knowledge from among his peer 
group. After all, they probably have 
the same problems as you do! 

To summarize the information 
provided by the Disk Operating 
System manual, we might say that is 
provides you with the basics for using 
random files. It tells you that you 
must "OPEN" a file with the access 
code "R" to specify random files, 
that you must assign a buffer number 
(1-15), and that you must assign a file 
name. 

For the moment, let's stop right 
there. Q 
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VARPTR Unmasked 



by John T. Phillipp, MD 

The first of three articles on the S-80 
VARPTR function. 

Everyone seems to be packing 
strings with graphics characters and 
Machine Language subroutines these 
days, and "I = VARPTR (A$) : J = 
PEEK (I + l) + 256 * PEEK (1 + 2)" 
is abroad in the land. Sometimes I 
think that S-80 programmers are 
naturally divided into three groups. 
The first group is made up of those 
who don't understand the VARPTR 
command at all. Oh, they'll type it in 
if they come across it in a program 
they're entering, but will they use it in 
their own programs. . . ? NEVER!! 
Group 2 consists of those who don't 
understand VARPTR either, but who 
have discovered that if they copy the 
"I = VARPTR" Hues exactly as 
they're written above, J will point to 
the beginning of A$ and they can 
nicely pack the A$ string with 
whatever they like. They don't 
understand WHY, but it works!! The 
third group understands VARPTR... 
they even know why "PEEK 
(1 + 2)" has to be multiplied by 256!! 

Having just recently moved from 
Group 2 to Group 3 myself, I want to 
spread the good word. Understand- 
ing VARPTR depends on un- 
derstanding the hexadecimal 
number system and the internal 
representation of addresses in the 
Z-80 microprocessor. . . WHAT??? 
Relax. Take it easy. It's really all 
quite simple. 

In order to understand hex- 
adecimal counting and the hex- 
adecimal number system, let's look at 
our familiar old friend, the decimal 
system, for a moment. The decimal 
(base 10) number system has ten 
digits, to 9. Count with me: 0. . . 1. 
..2. ..3. ..4. ..5. ..6. ..7. ..8... 
9. . . what's the next digit? There is 
NO next digit. The next decimal 
NUMBER is 10 ("ten"), made up of 
TWO digits, 1 and 0. What does 
THAT mean? 

There are only ten digits. When we 
count to more than nine, we use those 
ten digits in a kind of shorthand to 
represent larger quantities. Can you 
imagine how cumbersome it would be 
if we had a different single digit for 
every number to one thousand? Im- 
agine REMEMBERING all those 
digits? Counting would be a matter 
84 



of calling up friends and saying, "... 
uh. . . I've forgotten the eight hun- 
dred and eleventh digit. . . can you 
help me out?". And what about the 
one thousand and first digit. . . or the 
ten thousandth?!!?? 

In the decimal system, we use a 
shorthand based on columns and the 
powers of ten: ten to the zero power 
(10°, by definition 1 or "units"), ten 
to the first power (10\ 10 x 1 = 10 or 
"tens"), ten to the second power 
(10^ 10 squared, 10 x 10 = 100 or 
"hundreds"), ten to the third power 
(10^ 10 cubed, 10 x 10 x 10 = 1000 or 
"thousands"), and so on. We make 
columns, assign each a power of ten, 
and then we put our digits to 9 into 
the columns to represent larger 
numbers: 

column 3 X 10' = "thousands" 
column 2 X 10^ = "hundreds" 
column 1 X 10^ = "tens" 
column X 10° = "units or ones" 

Now a decimal number Hke three 
thousand four hundred and fifty-six 
can be represented as: 

3 X 10' (1000) = 3 thousands 

+ 4 X 10' (100) = 4 hundreds 

+ 5 X 10' (10) = 5 tens (fifty) 

+ 6 X 10° (1) = 6 units (six) 

or as we usually write it: 3456. 

Now let's take a glance at hex- 
adecimal notation. Hexadecimal is 
base sixteen. . . hex = six, decimal = 
ten. Count with me: 0. . . 1 . . . 2. . . 
3. . .4. . .5. . .6. . .7. . . 8. . .9. . . 

A. . . B. . . C. . . D. . . E. . . F. . . 
WHAT???? A, B, C, D, E, F? 
Those aren't digits!! Well, actually, 
yes they are. Hexadecimal needs six- 
teen digits, six more than decimal. 
The extra digits could have been sym- 
bolized by #, ?, %, &, *, and $, or U, 
V, W, X, Y, and Z. But the alphabet 
symbols are on almost every 
keyboard, and "A" is the first, so A, 

B, C, D, E, and F it was. A represents 
ten units, B represents eleven, and so 
on until F represents fifteen. 

This notation makes for some very 
strange-looking numbers in hex- 
adecimal, numbers like 7FFF hex and 
4E2B hex, but it's the same old 
powers and columns shorthand that 
we use for decimal. The difference is 
that in decimal we used powers of 
ten, so in hexadecimal we'll use 
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powers of sixteen: sixteen to the zero 
power (16°, by definition 1 or 
"units"), sixteen to the first power 
(16', 16 X 1 = 16 or "sixteens"), six- 
teen to the second power (16', 16 
squared, 16 x 16 = 256 or "two hun- 
dred fifty-sixes"), sixteen to the third 
power (16', 16 cubed, 16 x 16 x 16 = 
4096 or "four thousand 
ninety-sixes"), and so on. We make 
columns, each assigned a power of 
sixteen, and then we put our digits 
to F into the columns to represent 
larger numbers: 



column 3 


X 


16' = "4096s" 


column 2 


X 


16' = "256s" 


column 1 


X 


16' = "sixteens" 


column 


X 


16° = "units or ones 



Now a hexadecimal number like 
4E2B can be thought of as being: 

4 X 16' (4096) = 16384 decimal 
+ E(14)xl6' (256)- 3584 decimal 
+ 2 X 16' (16) = 32 decimal 
+ B(ll)xl6° (1)= 11 decimal 

which added up, gives us the total of 
20011 decimal. No problem. Now 
let's convert the hexadecimal number 
7FFF, the "top of memory" for a 
16K RAM system to decimal: 

7 X 1 6' (4096) = 28672 decimal 
+ F(15)xl6' (256)= 3840 decimal 
+ F(15)xl6' (16)= 240 decimal 
+ F(15)xl6° (1)= 15 decimal 



which added up, gives us the total of 
32767 decimal. So the hexadecimal 
number 7FFF is equivalent to the 
decimal number 32767. It's simple 
when you know how. . . and now 
YOU know how! ! This is all well and 
good, but what does it have to do 
with VARPTR? 

If you want to modify a string of 
characters in memory, you need to 
know where the string starts, right? 
The S-80 uses "dynamic string space 
allocation". That means that not on- 
ly does the computer put a string into 
the string storage area wherever there 
happens to be room when the string is 
first set up, but that it also moves the 
strings around in memory while the 
program is running!! Fortunately, 
BASIC provides the VARPTR func- 



tion which tells us where in memory 
variables, including string variables, 
are being stored. 

Let's define a string: 
A$ = "MARY". If we looked at the 
memory locations around the area 
where the string is stored we might 
find: 



Memory Location 


Contents 


32755 


„ 


32756 


. 


32757 


M 


32758 


A 


32759 


R 


32760 


Y 


32761 


. 


32762 


. 



The string "MARY" starts at 
memory location 32757 and ends at 
32760. So VARPTR (A$) should 
equal 32757, the start of the string, 
right? WRONG!! The VARPTR 
command DOES provide us with the 
address of the beginning of the 
string, but it's not that simple. 

PRINT VARPTR (A$) returns the 
number 26815. If we peek at the con- 
tents of that memory location 
( ?PEEK(26815) ), we get the number 
4, which is the number of characters 
in the string. In fact, VARPTR (A$) 
always returns a memory location 
that contains the number of 
characters in the string. This number 
is always between and 255, since a 
string can contain no more that 255 
characters. But how does VARPTR 
help us find 32757, the address of the 
start of the string? 

Let's look at the contents of the 
memory locations around 26815 
in Figure 1 . 

Memory locations "VARPTR 
(A$) + 1" and "VARPTR (A$) + 
2" contain 245 and 127, which have 
something to do with memory loca- 
tion 32757, the starting address of A$ 
in memory. But what?? Maybe we 
had better take a look at the way that 
the S-80 stores an address like 32757 
in memory. 

The computer stores addresses as 
two hexadecimal "bytes". A byte 



consists of two hexadecimal digits (0 
to F), so the hexadecimal value of a 
byte ranges from 00 to FF. What is 
the range of values of a byte in 
decimal? C'mon, don't tell me that 
you've forgotten the powers of 16 
and the columns already! ! 

column 3 X 16' = "4096s" 
column 2 X 16' = "256s" 
column 1 X 16' = "sixteens" 
column X 16° = "units or ones" 

So let's put in the value of 00 

and FF: 

-1- (15) X 16' (16) = decimal 
-I- (15) X 16° (1) = decimal 

which adds up to a decimal value of 
and: 

+ F (15) X 16' (16) = 240 decimal 
+ F (15) X 16° (1) = 15 decimal 

which adds up to a decimal value of 
255. The S-80 uses TWO bytes to 
store an address, because the highest 
address that one byte could store 
would be FF or 255 decimal — not a 
very extensive range. Two bytes (four 
hexadecimal digits) can store the 
values 0000 (0 decimal) to FFFF, the 
"top of memory" for a 48K RAM 
system: 

4- F ( 1 5) X 1 6' (4096) = 6 1 440 decimal 

+ F(15)xl62 (256)= 3840 decimal 

-f- F(15)xl6' (16)= 240 decimal 

-I- F(15)xl6° (1) = 15 decimal 

which added up, gives us the total of 
65535 decimal. 

If an address is two bytes long, and 
one memory location can store only 
one byte (decimal value - 255), then 
addresses must be stored in two con- 
secutive memory locations. In fact, 
memory locations "VARPTR (A$) 
+ 1" and "VARPTR (A$) +2" store 
the two bytes of an address, the ad- 
dress of the beginning of the string in 
memory. If we peek at those two 
locations, we get 245 and 127. How 
are those numbers related to the ad- 
dress 32757? 

Let's look at the area around 
memory location 32757 again. 32757 



is equivalent to the hexadecimal 
number 7FF5, so we can write the ad- 
dresses in hexadecimal: 



Memory Location 
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26813 


_ 




26814 


. 




26815 


- 


4 <= = = VARPTR (A$) 


26816 


- 


245 ^= = = VARPTR (A$) + 1 


26817 


. 


127 <= = = VARPTR (A$) + 2 


26818 


. 




26819 




Figure 1 



Memory Location 
7FF3 
7FF4 
7FF5 
7FF6 
7FF7 
7FF8 
7FF9 
7FFA 



Contents 



M 
A 
R 
Y 
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The beginning of the string in 
memory is 7FF5 hexadecimal. The 
first byte of the address (representing 
the 16' and 16' columns, called the 
"high order byte") is 7F, and the sec- 
ond byte (representing the 16' and 
16° columns, called the "low order 
byte") is F5. 7F is the same as 127 
decimal. 

+ 1 X 16' (16) = 112 decimal 

+ F (15) X 16° (1) = 15 decimal 

and F5 is the same as 245 decimal. So 
the memory location "VARPTR 
(A$) + 1" stores F5 (245), while 
"VARPTR (AS) + 2" stores 7F 
(127). Wait a minute. . . F5. . . 7F. . . 
why, that's the same as the memory 
location of the start of AS (7FF5) 
with its bytes reversed. RIGHT!! 

For reasons best known to 
themselves, the designers of the Z-80 
microprocessor chip have it store all 
addresses with the bytes reversed: the 
"low order byte" first, and then the 
"high order byte". So the address 
7FF5 is stored as F57F. 

The only thing left to explain is 
why PEEK (I -1- 2) is multiplied by 
256 before being added to PEEK (I 
-I- 1). Don't forget, we have defined I 
as VARPTR (AS). 

Let's look at the decimal number 
3456 for a moment. We can consider 
each digit along 3-4-5-6: three 
thousands, four hundreds, five tens, 
and six units, OR we could divide the 
digits into TWO groups, 34 - 56, and 
consider it to be thirty-four hundreds 
(34 x 10') plus fifty-six units (56 x 
10°). In the same way, we can con- 
sider each digit of the hexadecimal 
number 7FF5 alone, 7 - F - F - 5: 
seven 4096s, F (15) 256s, F (15) six- 
teens, and 5 units, OR divide it into 
two bytes 7F - F5 and consider it to 
be 7F (127) 256s (127 x 16') plus F7 
(245) units (245 x 16°). 

If we multiply the high order byte 
(7F or 127 decimal, found in memory 
location "VARPTR (A$) + 2") 
times 256, we get 32512. If we then 
add the value of the low order byte 
(F5 or 245 decimal, found in memory 
continued on page 91 
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by Edward E. Umlor 

This month I can say YES THERE 
REALLY ARE READERS OUT 
THERE! I have received the first 
piece of mail for this column (soft- 
ware), and to top that off I was 
visited by two gentlemen with a new 
product. This has helped me to feel 
more wanted. Please keep those 
responses coming. 

HARDWARE 

The first item up is an organizer 
for your computer. This is a shelf 
built of woodgrained pressboard, 
power strip, and power switches. The 
shelf has been designed to fit over 
most one-piece computers and even 
the S-80 Expansion Interface will fit. 
The height has been designed to give 
the best viewing angle to the monitor 
(or TV) for comfortable long-term 
viewing. It is very solidly built and 
can easily support a 19" color TV. So 
far all this can do is get the monitor 
up out of the way, but how about all 
those power cords that act like a 
bucket full of worms behind your 
system? The power strip is located at 
the back of a nicely painted welded 
steel cabinet and the power switches 
are located at the front. There are 
four outlets controlled by a master 
switch or their own individual switch- 
es, one convenience outlet (uncon- 
trolled by any switch) and one outlet 
(CPU) filter controlled by its own 
switch only. These switches are silver 
contact (no expensive arc types) and 
should not destroy your program 
when turned on or off. One of the 
niceties is that the switches are lighted 
and can be labelled. This is for us 
absent-minded types that forget 
which is what. If this little item 
sounds interesting to you, you can 
write for information to: 

Technical Services 

65 Union Street 

Cambridge, MA 02141 

(617) 864-4173 

Attn: John M. Raulinatis 

The second item is for the Model 
III S-80. There are several manufac- 
turers working on disk control 
modifications of the Model III and I 
have looked into the one from A & M 
Electronics. This disk control option 
is being offered through dealers and 
distributors at the time this article is 
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being written. The control card 
comes complete with mounting hard- 
ware: 8-conductor ribbon cable; 
20-conductor ribbon cable; power 
supply; power cables; brackets for 
disk drives and power supply; and 
complete installation documentation. 

The installation will take an ex- 
perienced technician about one hour 
to mount everything and do an initial 
check. I used our HARDSIDE drives 
(TEAC) first. The head step time for 
these drives is 30 milliseconds 
(30/1000) for reliable operation. If 
you try to run them faster, you will 
get many retries and read errors. I 
used a TRSDOS 1.2 that had been 
modified to run with these drives, 
and everything ran along just great. I 
now had a dual disk drive Model III, 
but would the card run with a faster 
DOS? I removed the TEAC drives 
and mounted two MPI drives in their 
place. The MPI is made for a five 
millisecond head step time, which is 
the same as the drives used by Tandy 
and TRSDOS 1.1 or 1.2 normally 
running on the Model III. Well how 
about that! Now I had a Model III 
that would run all the software now 
available for it. The A & M Elec- 
tronics package is complete with 
everything except the drives, and 
works very well with Tandon and 
MPI drives using a normal Model III 
DOS or any other 5 14 inch drive us- 
ing the modified DOS. The price 
should be less than an R/S installed 
option. 

The old ear to the rail has detected 
the rumbUngs of 5 miUisecond head 
step time, 40 track double density, 
single sided (same as Tandon and 
MPI), or double sided (two heads) to 
be announced soon by TEAC. 
Mounting two double sided drives 
will give you the equivalent of four 
disk drives and all mounted within 
the Model III cabinet. I will be very 
happy to review these drives when 
they become available. 

SOFTWARE 

The microcomputer is a very 
strong and useful tool for business. It 
is not just a toy or game machine! I 
know that a lot of people believe that 
a computer has to bear the IBM, 
Honeywell, Digital, CDC, Prime, or 
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Data General label to even be con- 
sidered for use within their com- 
panies. The microcomputer can do a 
lot of front-end data processing, 
departmental reports, record keep- 
ing, customer list, and a host of other 
functions that could cut your com- 
puting bills down to size. I had best 
get off this subject quick as it is one 
of my pet peeves. 



The item on the software agenda is 
a new (not yet released) mail list 
program written in BASIC. The sorts 
are Assembly Language call by USR 
function to speed things up a bit. To 
call this strictly a mail list would also 
be misleading. This mail list is a data 
management system for LARGE 
records. You can specify each field in 
the record to be up to 255 characters 
long; give a special name to each 
field; and define primary, secondary, 
and alternate (third) sort fields. 

The program is modularized for 
ease of writing and to keep from do- 
ing things to your Hst you don't want 
to do. SORT 6527/CIM: is the sort 
routine itself. It will reside in memory 
without interfering with the other 
programs and is called up by another 
module. 

SORTER: is the program that sets 
up the parameters of the sort and 
then calls up the sort routine. This 
routine is used to sort the file in a 
order different from the originally 
specified fields. 

BUILDFIL: is the program that 
allows you to specify size, name, and 
define sort. You must have built a file 
before you can enter any data to the 
computer. This is the initializing 
module where all the original file 
definitions are made. 

MAILMENU: is the heart of the 
program. Here is where all the data 
are entered into the machine. Its 
features are: 

ADD: data entry to the program. 

CHANGE: This is the edit routine 
(the author isn't relying on people 
knowing what edit means). 

PRINT RECORD: This allows you 
to print a copy of an individual 
record. 

DELETE: Kills the record. Just 
what the name implies. 

continued on page S9 
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I received a letter the other day and 
by the time this is in print the writer 
should have received his answer. Yes, 
we do try to personally answer ques- 
tions by mail as well as in this col- 
umn. If you are having a problem, 
please write to me and I will try to 
get it answered even though it might 
not be used in the column. 

The question asked was about the 
compatability of different disk 
drives. The best way to show this is a 
chart, but first a brief description of 
each. 

35-track drives allow the 
record/play head (I will just call it the 
head) to move 35 steps from the out- 
side toward the inside of the diskette. 
(The 35 concentric circles of data on 
the disk are called tracks). The head 
moves a fixed distance each time and 
comes up against a physical stop after 
so many steps. 

40-track drives allow the head to 
step 40 times. The distance per step is 
the same as the 35-track, but the 
physical stop has been moved closer 
to the central hub. 

77-track drives make 77 steps, but 
the physical stop is placed close to the 
hub like the 40-track. This total 
distance is then divided into 77 equal 
steps. 

80-track drives make 80 steps with 
the same rules as the 77-track. The 
track spacing is just different enough 
so that a 80-track will not read a 
77-track. However, there is a logic 
modification that can be made to 
allow an 80-track become a 40-track 
and back again using a switch. I 
don't have this yet, but am looking 
forward to getting it set up. 



DISK DRIVE CHART 

A 35-track drive will read all 35 
track diskettes and the first 35 tracks 
of a 40-track formatted diskette. 

A 40-track drive will read all 35 
and 40-track diskettes. 

A 77-track drive will read only 
77-track diskettes. 

An 80-track drive will read only 
80-track diskettes (until the modifica- 
tion becomes available). 

I hope this brief summary of disk 
drives will help all you potential disk 
drive buyers. 



MODEMS 

This month I will try to tackle the 
modem. This crazy little black box 
allows your computer to act Uke a 
teenager (as far as the phone is con- 
cerned). Well, we are back to the old 
definitions time again. 

Parallel — Picture this as eight 
people all walking side by side. This 
is the way the data bus in your com- 
puter is organized. 

Serial — Now the eight people are 
walking in file, one after the other. 

Acoustic — Having to do with 
sound. You would be able to actually 
hear the sound to and from the 
phone. 

Direct Connect — The wires con- 
nect directly to the device and re- 
quire the hand set of the phone. 

Modem — A device for hooking 
your computer into the telephone 
system so your computer can talk to 
other computers over the telephone. 

Originate — You call the other 
computer and it establishes the line of 
communication. 

Answer (manual) — You are called 
(or call) and the computer at the 
other end is waiting for contact. Your 
modem is capable of establishing the 
contact at your flip of a switch. 

Auto Answer — This is a true 
unattended capability. When the 
phone to which the modem is con- 
nected, rings, the modem allows the 
computer to answer the phone and 
establishes contact. This is the type 
required by the bulletin boards and 
time-sharing networks. 

This should cover the basic new 
definitions. The data that is sent out 
over the phone lines has to be in the 
correct format. With serial data, the 
computer has to receive a start of 
word bit; 6, 7, or 8 data bits; even, 
odd, or no parity; and 1 or 2 stop 
bits. Don't let parity throw you. If it 
is even parity, and a odd number of 
ones is being sent, an extra one will 
be added to make it an even number. 
Odd parity works the same way ex- 
cept it ensures an odd number of 
ones. The most popular format is as 
follows: 1 start bit, 8 data bits, no 
parity, 1 stop bit, and transmission at 
300 baud. Most terminal software use 
these as default values or allow you 
to set up your own configuration for 
the transmission parameters. 
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You will have to evaluate your 
needs before you go shopping for a 
modem and not let the salesperson 
sell you more than you need. In fact, 
I have found this a very good practice 
when shopping for anything that 
costs more than a nickel. I will now 
go through some of the hardware 
available (no brand names) and their 
hmitations and good points. 

The first one to cover is the 
acoustic modem. Type A will require 
the purchase of an RS232C parallel 
to serial conversion unit. The modem 
will cost somewhere between $130 
(dealer specials) to around $200. 
Type B has the RS232C built into the 
unit and will run around $250 to 
$300. The RS232C itself will run 
from $90 up to $160. The acoustic 
modems presently being sold require 
the old style hand set found on the 
Princess phone and the box wall 
phones, etc. The ear piece and the 
mouth piece must be pressed firmly 
into fairly tight-fitted rubber cups. 
This is to help block out background 
noise which can interfere with the 
data transfer. Slimline phones cannot 
be used with these modems at the pre- 
sent time (This always can change in 
the not too distant future). The 
necessity of blocking out the 
background noise was demonstrated 
very nicely on my system the other 
day. I am a free sneezer — I do not 
hold them back at all. I was receiving 
data from one of the forums when I 
sneezed a moderate sneeze (a long 
way from a full blast wall cracker). 
When I looked at the screen I had a 
whole half line of Katakana 
displayed. The sneeze threw the unit 
out of sync for that half a line. 
Acoustic modems only come in 
originate, or originate-manual 
answer. After all, your phone will be 
off the hook all the time it is in use. 

The direct connect does avoid this 
background interference from us 
healthy sneezers. However, you must 
have the new small push-in connector 
type of phones in your home. The 
SlimHne is this type of phone (AH 
HA!! I can s'ull get on the lines even 
with a Slimline). The direct connects 
also come in the A and B types, but 
also in the originate, originate- 
manual answer, and originate au- 

continued on page 89 
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Connect with ATARI 




Hardware 

ATARI 400 Computer System, 16K RAM $339.00 (#36-40i) 

ATARI 400 Computer System, 32K RAM $519.00 (#36-402) 

ATARI 800 Computer System, 16K RAM $829.00 (#36-800) 

ATARI 800 Computer System, 32K RAM $929.00 (#36-80i) 

ATARI 800 Computer System, 48K RAM $999.00 (#36-802) 

ATARI 410 Program Recorder $69.00 (#36-803) 

ATARI 810 Disk Drive $499.00 (#36-8io) 

ATARI 822 Thermal Printer $389.00 (#36-820) 

ATARI 825 Printer (80-col) $769.00 (#36-825) 

ATARI 830 Acoustic Modem $179.00 (#36-860) 

ATARI 850 Interface $179.00 (#36-855) 

16K RAM Module for the ATARI $99.00 (#36-854) 

32K RAM Module for the ATARI $169.00 (#36-855) 

MACROTRONICS Printer Interface (36-pin) $69.95 (#36-936) 

MACROTRONICS Printer Interface (40-pin) $69.95 (#36-940) 

ATARI Joystick Controllers $19.95 (#36-3005) 

ATARI Paddle Controllers $19.95 (#36-3004) 

ATARI CX-70 Light Pen $74.95 (#36-70) 

Dust Cover for ATARI 400 $7.95 (#i6-40) 

Dust Cover for ATARI 800 $7.95 (#i6-03) 

ROM programs 

Basketball $29.95 (#36-bask) 

Chess $34.95 (#36-CHS) 

Editor/Assembler $49.95 (#36-ase) 

Music Composer $49.95 (#36-muse) 

Star Raiders $39.95 (#36-strds) 

Super Breakout $34.95 (#36-supb) 

Tele-Link $24.95 (#36-tel) 

3D Tic-Tac-Toe $29.95 (#36-3TTT) 

Video Easel $29.95 (#36-video) 



SOFTWARE on Disk 

VISICALC from Personal Software $199.95 (#36-vicl) 

MAILING LIST $24.95 (#36-279002D) 

SOFTWARE on Cassette 

Star Trek 3.5 $1 4.95 (#36-200025T) 

Deflection/Simon Says $9.95 (#36-20oo78T) 

Mountain Shoot $9.95 (#36-20oo79T) 

Angle Worm/Crolon Diversion $9.95 (#36-20oo92T) 

Fleet $6.95 (#36-27701 BO) 

Connect Four $6.95 (#36-277020C) 

Letters $6.95 (#36-277022C) 

Reverse $6.95 (#36-277023C) 

Zap $6.95 (#36-2770240) 

Lander $6.95 (#36-2770i9C) 

Chase $6.95 (#36-27701 7C) 

Computer Acquire $20.00 (#36-2370020) 

Conflict 2500 $15.00 (#36-2370010 

Lords of Karma $20.00 (#36-23700iC) 

Biorhythms $14.95 (#36-bior) 

Blackjack $14.95(#36black) 

Hangman $14.95 (#36-hang) 

Kingdom $14.95 (#36-king) 

3-Dimensional Graphics Package $29.95 (#36-3d-g) 



TERMS: Prices and specifications are suject to ctiange. HARDSIDE ac- 
cepts VISA & MASTERCARD , Certified checks and Money Orders. Personal 
checks accepted (takes 3 weeks to clear). HARDSIDE pays all shipping 
charges (within the 48 states) on all PREPAID orders over $100.00. On all 
orders under $100 a $2.50 handling charge must be added. COD orders ac- 
cepted (orders over $250 require 25% deposit), there Is a $5.00 handling 
charge. UPS Blue Label and Air Freight available at extra cost. 



A 



ATARr 

A Warner Co mmun teal ions Company ^9 
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What's 

New 

continued from page 86 

PRINT MAIL LIST: This is the 
routing that lets you print out your 
whole mail list in label format or data 
format. 

RESORT: This routine will resort 
the whole file in the originally 
specified parameters input during 
BUILDFIL. 

I think you can see the wide variety 
of uses that "The Flexible Mail List" 
can offer. In looking over the general 
parameters of this program, it looks 
more like a general data file manage- 
ment system. It is in BASIC and will 
be slower than some of the assembly 
programs on the market. However, it 
is easily modified by the owner to 
specific requirements without having 
to learn disassembly/reassembly 
techniques. If speed is not a major 
factor, this one will look good. For 
more information or contact with the 
author write to: 

INTERPRO 

Box 4211 
Manchester, NH 03108 

Well, that is all for this month. It is 
very reassuring to know there are 
such things as readers in this world. 
Keep the letters coming. It would be 
nice to see this department of the 
magazine grow into a real informa- 
tion center. ^ 



Hardware 
Corner 



continued from page 87 

to answer styles. Being connected 
directly into the phone system, the 
computer can now automatically 
answer the phone and chat with 
another computer ANYWHERE IN 
THE WORLD. Anywhere that the 
modems are compatible with each 
other that is. 

As you can see, there are a lot of 
choices to be thought out before go- 
ing down to your local computer 
mania haven. Choose the item best 
suited to your needs before you go 
and don't spend more bucks than you 
have to. Well that is about all for this 
month from the old GRANITE 
KNOGGIN. Happy computing and 
keep those letters coming. Q 



M^FeOCOF^Y 




Direct from TSE HARDSIDE 



TYPRINTER 221 (9-221) $2195.00 

NEC 5510 SpinWriter (9-5510) $2695 00 
NEC 5530 SpinWriter . . (9-5530) $2695.00 

CENTRONICS 730 (9-730) $619.00 

CENTRONICS 737 (9-737) $729.00 

OKIDATA Microline-80 . . . (9-80) $439.00 
OKIDATA Microline-82 . (9-82) $579.00 
OKIDATA Microline-83 . (9-83) $879.00 
OKIDATA SL300 

(300 LPM) (9-SL300) $3795.00 

EPSON MX-80 $(9-MX80) $509.00 

EPSON MX-80FT . . . $(9-MX80FT) $619.00 





NEC Tractor-Feed Option 

(9 5000) $229.00 

BDT Sheet-Feeder 

(NEC only) Option (9-5005) $1495.00 

Microline-80 or 82 Tractor-feed Option 

(9-80-T) $59.00 

Centronics Zip-Pack Ribbons 

(3-pack) (21-01) $15.95 

SpinWriter Multi-Strilte Ribbons 

(3) (21-02) $19.95 

Microline Printer Ribbon 

(3-pack) (21-04) $15.95 

EPSON Printer Ribbons 

(2-pack) (21-05) $29.95 

RS MOD-I Printer 

(36-pin) Int. Cable (26-1411) $59.00 



RS MOD-I Printer 

(40-pin) Int Cable (26-1416) $59.00 

RS MODI & III Printer 

(36-pin) Cable (26-1401) $29.00 

RS MODI & III Printer 

(40-pin) Cable (26-1415) $29.00 

RS MOD-I & III LRC Printer Cable 

(9-10) $29.00 

APPLE Parallel Int. & Cable 

(36-pin) (47-936) $100.00 

APPLE Parallel Int & Cable 

(40-pin) (47-940) $100.00 

APPLE Asynchronous RS-232C Int 

(47-771 OA) $159.00 

ATARI-Macrotronics Print 

(36-pin) lnt(36-936) $69.95 

ATARI-Macrotronics Print 

(40-pin) lnt(36-940) $69.95 

TERMS: Prices and specifications are subject to 
change. TSE HARDSIDE accepts VISA & MASTER- 
CARD. Certified checks and Money Orders. Personal 
checks accepted (takes 3 weeks to clear). TSE HARD* 
SIDE pays all shipping charges (within the 48 stales] on 
all PREPAID orders over $100.00. On all orders under 
$100 a 52.50 handling charge must be added. COD 
orders accepted (orders over $250 require 25% deposit), 
there is a $5.00 handling charge. UPS Blue Label and 
Air Freight available at extra cost. 
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by Sherry M. Taylor 

It is really very strange how this all 
happened, but I swear this is the 
truth. It was told to me by my com- 
puter, Max. He heard it on Micronet 
and the Source as it was told a hun- 
dred thousand times by terminals all 
across the nation. All the computers 
in Computerdom were having a little 
electronic giggle over this one. 

Seems that as the space shuttle 
"Columbia" sat poised on launch 
pad 39A one Friday morning, the five 
computers aboard were talking to 
each other. Just passing time, you 
know, waiting for the humans to 
decide what to do next. 

The conversation started on a 
cheery note when IBM-1 made this 
observation: 

"You know, it's really exciting to 
be part of the team that will fly "Col- 
umbia." This will certainly be the 
high point in my Ufe." 

"Oh yes," chimed in IBM-5, 
"This is really something I'm very 
proud to be part of, too." 

"Don't get too uppity there, 
IBM-5." cutinIBM-3. "You are just 
a backup system. You won't be flying 
this baby Hke 1, 2, 4, and I will! Why, 
we ARE the "Columbia." We are 



The Little Computer That Wouldn't 



her heart, her mind and her soul." 

"That's right," said IBM-2. "We 
keep her trajectory right on target, 
fire her engines and keep all her 
systems under strict control." 
"Now wait! Wait a doggone nano- 
second here!" said Backup. Why are 
you ganging up on me? I am just as 
much as part of this team as you." 

"Oh yes," agreed IBM-I, "you are 
a part of the team all right. 
Somebody has to warm the bench." 

The primary computers laughed 
long and hard. 

"You are here only to be available 
should one of us fail," continued 
IBM-1. "And even the humans know 
that THAT is highly unlikely." 

"You conceited egotistical snob!" 
Backup said. "These humans 
wouldn't dare risk flying 
"Columbia" without me!" 

The others broke out laughing 
again, louder this time. 

"I'll show you," Backup shouted 
above the roar. "I could halt this 
launch single-handedly." 

"Humph. That's not possible," 
they retorted. "You're not that im- 
portant." 

Backup just smiled a knowing 



smile and didn't speak another word. 

"This is Shuttle Control. We are at 
T minus nine minutes and holding. 
The backup computer has stopped 
communicating with the four 
primary computers for some reason. 
We are working on it." 

Well, no amount of pleading 
would get Backup to talk. The 
primary computers apologized pro- 
fusely, but Backup just sat quietly 
with his infuriating electronic grin 
and uttered not one byte. 

"This is Shuttle Control. This 
morning's launch has been scrubbed. 
We cannot go without that backup 
computer and it refuses to com- 
municate with the four primary com- 
puters. Repeat: This morning's 
launch is scrubbed." 

And there you have it. That's how 
the tiny little computer grounded the 
great big shuttle. We're glad the 
technical crew convinced the backup 
computer to talk again and they got 
the shuttle off the ground. But it was 
a close call. You know the old saying 
don't you? "Hell hath no fury like a 
computer scorned!" 

Now I wasn't there, but Max says 
it is true. You can beheve it or not. 




Go Public With 
Your Computer 

continued from page 32 

the computer right up front attract- 
ing attention with pictures and a 
spiel about the club or church, par- 
ticularly if you give the shop a screen 
full of acknowledgement somewhere 
in the program. I had no trouble 
finding material for a five minute 
running display and information pro- 
gram. Better not set the computer in 
direct sunlight, of course, and if it's 
to sit in a shop traffic zone you might 
disable the break key to keep the pro- 
gram tamper-free. (On the S-80 it's 
POKE 16396,23 to disable; POKE 
16396,201 to re-enable.) 

A church without a program for 
the deaf may be eager to use your 
computer for instant sermon transla- 
tion if there's a professional typist 
handy. And you can earn an extra 
piece of cake from the cooks by reap- 
portioning their family-size recipes to 
full club size at the next social event. 

So, go public with your computer. 
You'll find other computer freaks 
and widen your circle of friends as 
well as heightening your own feeling 
of worth and accompHshment. Such 
rewards are well worth your invest- 
ment of time and care on their own 
merits. 

But take along pencil and paper 
with your shopping Ust. Once the 
good news spreads, you'll be keeping 
two more lists — suggestions from 
the peanut gallery on how your com- 
puter can be pressed into service for 
the pubHc good and a list of dates 
and meeting places where you're 
scheduled to demonstrate your ideas 
to other clubs that aren't as fortunate 
as your own. (5 

VARPTR Unmasked 

continued from page 85 

location "VARPTR (A$) + 1"), we 
get 32512 + 245 = 32757, the start- 
ing address of the string in memory. 
"PEEK (I -I- 1) + 256 ♦ PEEK (I -l- 
2)" simply converts the two-byte hex- 
adecimal address to decimal, by 
multiplying the decimal value of the 
high order byte times 256 and adding 
the decimal value of the low order 
byte. 

So there it is. Now YOU under- 
stand VARPTR too... and you can 
use it to pack strings with graphics 
and Machine Language subroutines 
to your heart's content. We'll 
describe how that's done in two more 
articles. And by the time you're 
finished with all three, you'll be a 
confirmed member of Group 3. Q 
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TRS-80 Model III, 48K RAM $999 



Computers 

TRS-80 Model III 

16K RAM (#26-1062) $919.00 

TRS-80 Model III 

48K RAM (#26-1062 + ) $999.00 

TRS-80 Model III 

48K, 2 Disk $1995.00 

TRS-80 Color Computer 

4K RAM (#26-3001) $359.00 

TRS-80 Color Computer 

16K RAM (#26-3001 -t- ) $399.00 

TRS-80 Color Computer 

32K RAM (#26-3001 -I- -I-) $479.00 

TRS-80 Color Computer 

Ext. BASIC (#26-3002) $529.00 

TRS-80 Color Computer 

Ext. BASIC 32K 

(#26-3002 -I- ) $599.00 

Model I Peripherals 

COMM-80 Interface 

(#4-80) $159.00 

CHATTERBOX Interface 

(#4-81) $239.00 

DISK-80 Interface 

32K RAM (#4-82) $339.00 

DISK-80 + Interface 

32K RAM (#4-83) $395.00 

LYNX Communications Interface 

(#19-80); $229.00 

LYNX Auto-Answer/Auto Dial 
(#19-82) $279.00 

RS EXP. Interface 

32K RAM (#26-1 140-32) $389.00 

16K Memory Kit 

TRS-80 Interface (#5-1102) $39.00 

ORCHESTRA 80 

(#15-03) $79.95 

Dual Joysticks 

for Color Computer (#26-3008) . . . $24.95 

CTR-80A Cassette Recorder 

with cable (#26-1206) $59.95 

DIGI-TALKER MOD I 

(#4-DTl) $189.00 

DIGI-TALKER MOD III 

(#4-DT2) $189.00 

80-Graphic Board 

(#26-80G) $139.00 



Model I Disk Drives 

HARDSIDE 40-Track Drive 

(#7-40) $299.00 

HARDSIDE 80-Track Drive 

(#7-80) $449.00 

PERCOM Data Separator 

(#7-03) $29.95 

PERCOM Doubler 

(#7-07) $169.95 

HARDSIDE Extender Cable 

(#7-02) $15.95 

HARDSIDE 2-Drivc Cable 

(#7-04) $29.00 

HARDSIDE 4-Drive Cable 

(#7-05) $39.00 

TRS-80 Color Computer 32K RAM $599 




TERMS: Prices and specifications arc subject to 
change. TSE HARDSIDE accepts VISA & MASTER- 
CARD. Certified checks and Money Orders. Personal 
checks accepted (takes 3 weeks to clear). TSE HARD- 
SIDE pays all shipping charges (within the 4g suica) oo 
all PREPAID orders over $100.00. On all orders under 
S1(X) a S2.S0 handling charge must be added. COD 
orders accepted (orders over $250 require 25% deposit), 
there is a $5.00 handling charge. UPS Blue Label and 
Air Freight available at extra cost. 
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COMPUTER NAPOLEONICS 

from Strategic Simulations 

Wargaming, that furtive minor 
vice whose aficionados are popularly 
conceived to be firmly entrenched in 
the shop glasses and plastic pencil 
holders crowd, would seem to be a 
natural for transference to home 
computers. Shoving little squares of 
cardboard around on hexagonally 
marked maps and pretending that 
you're Rommel or Robert E. Lee or 
some other brilliant loser can get 
tedious even to the the most white- 
knuckled fanatic. And little card- 
board squares are easy to lose. How 
much easier it would be, then, to 
transfer the whole mess to a com- 
puter screen and shove around little 
glowing letters rather then all that 
lousy cardboard. And that's what 
Strategic Simulations has done in 
"Computer Napoleonics". 

The scenario of "Computer 
Napoleonics" is the Battle of 
Waterloo. The game begins with the 
French units arrayed on the left side 
of the screen and the Allied units 
(British, Dutch-Belgian, and 
whatever you call people from 
Brunswick) on the right side. The 
French units are rendered in lower- 
case letters ("i" indicates infantry, 
"c" is cavalry and "a" is artillery, 
and each individual unit is designated 
by a second letter, so the units run to 
designations like "ia", "cb" and so 
on) while the Allied units are in 
upper-case letters using the same 
system. This dichotomy directly 
relates to the hard truth that the 
French have a hard time winning. 
The French have generally better 
field position, but they are out- 
numbered from the start. And as if 
that weren't bad enough, after the 
second or third turn (at the player's 
option) hordes of Prussians appear in 
the southeast to help the Allies. 

Movement of units is fairly simple 
and straightforward. In the Move- 
ment Phase of the game, the com- 
puter will ask which unit the player 
wishes to move; after this is in- 
dicated, it will ask where the player 
wishes to move it. There are sbc pos- 
sible movement commands, the com- 
mand "1" indicating northeast, "2" 
indicating due east, "3" southeast, 
"4" southwest, and so on. You 
might have noticed in that rundown 
92 



that although it is possible to move 
due east and west, it is impossible to 
move due north or south without tak- 
ing up two moves — say, northeast 
then northwest for a direct north- 
ward movement. Further, each unit 
and type has its own particular move- 
ment restrictions, with cavalry 
generally having the greatest move- 
ment range (five spaces per turn), ar- 
tillery usually the least (most have a 
limit of three per turn, although a 
few light units can move up to five 
spaces), and infantry occupying a 




niche in the middle, all able to move 
four spaces per turn. There are other 
movement restrictions as well. Spaces 
occupied by forest cannot be crossed 
under any circumstances, and spaces 
occupied by villages or chateaux 
decrease movement potential by one. 
Each unit has a zone of control that 
extends for one space in every direc- 
tion; once a unit of the opposing side 
has entered that zone, it may move 
no further, not even into another 
space in that zone of control. It also 
MUST attack that unit or an adjoin- 
ing unit in the subsequent attack 
phase; once a zone of control has 
been entered, the unit generating that 
zone MUST be attacked by some unit 
of the opposing host. Infantry and 
cavalry units must be in a space adja- 
cent to the defender to attack, while 
artillery units can attack from a 
distance of one square removed from 
the target. 

This brings us to the Attack Phase. 
First, the units are moved and it is 
determined which unit(s) is/are at- 
tacking which opposing unit(s). Each 
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unit has a designated number of 
Strength Points (SPs) which deter- 
mine both its attacking and defensive 
strength. The computer compares the 
number of Strength Points of the at- 
tacking unit or units (yes, you CAN 
attack with more than one unit, and 
you will if you're wise) with the 
defending unit or units and deter- 
mines a combat ratio. And finally, 
the computer generates a random 
number and compares it with the 
combat ratio. 

This in turn leads to a number of 
possible results: attacker retreats, 
defender retreats, attacker elim- 
inated, defender eliminated, or ex- 
change. The elimination results are 
fairly self-explanatory, so no more 
on them. The retreat options are also 
fairly clear, except that units may not 
retreat in the zone of control of an 
opposing unit and units may not be 
stacked on one another. This means 
that if a unit must retreat and another 
unit, even a friendly one, blocks that 
retreat, retreat is impossible and the 
unit is automatically eliminated. 
(Note, though, that artillery units, if 
attacking from a distance, need not 
retreat even if such result is indicated, 
nor are they eliminated.) And any 
time combat results in a retreat, one 
member of the opposing force may 
enter the square vacated by the 
retreating unit. The exchange result 
means that the defender has been 
eliminated, but also that he took one 
OR MORE of the attacking units 
with him. 

Winning in this system is, as per 
the general pattern of the game, 
easier for the Allies than for the 
French. For each unit eliminated, its 
side loses points equal to the unit's 
Strength Points. In the player vs. 
player version, the French 
automatically lose if their losses 
equal 40 Strength Points. If the Allies 
lose 50 Strength Points, they are 
demoralized and the French win IF 
they are able to exit seven units in a 
specified area on the right side of the 
board. Conditions for victory are the 
same in the solitaire version of the 
game, except that the Allies must lose 
60 points before becoming 
demoralized. 

This is a lively, challenging game in 
both the solitaire or player vs. player 
versions. The latter is probably more 



challenging, since the computer itself 
is a rather sluggish player that does 
not use its units to the best advan- 
tage, even though it always plays the 
Allies and should always win. It also 
has at least two odd bugs in it. Every 
now and then it wants to attack unit 
"oo" with unit "OO", although 
neither unit exists. It also insisted 
every time I played the solitaire ver- 
sion on attacking unit "id" with unit 
"IN" even when they were nowhere 
near each other. The solitaire player 
is also fairly easy to beat. I won't give 
away exactly how this is done, but if 
you block the Prussians in the south 
and attack the Allies on the north 
rather than in the middle, you should 
have an easy time of it. 

On the whole, "Computer 
Napoleonics" is to be highly recom- 
mended. The instructions are fairly 
straightforward, although a few play- 
throughs are required to catch all the 
nuances of the rules. The command 
routine can be cumbersome at times, 
but the player will be so busy plan- 
ning that he or she will hardly notice 
this minor drawback. Designers John 
Lyons and Joel Billings have ad- 
mirably captured the spirit of 
wargaming with the added advan- 
tages of speed of play (at least com- 
pared with conventional wargaming) 
and dispensing with the muss and 
fuss of board layouts and unit pieces. 



It also doesn't exhaust your interest 
after a few plays, as so many other 
computer games do. All in all, this is 
an excellent buy. 

Michael Humes 

ATLANTIAN ODYSSEY 

from Interpro 

Here's a nifty Adventure with a 
new twist: Graphics. Written by Teri 
Li and Mark Johnson, "Atlantian 
Odyssey" takes you through the 
jungle and under the ocean in search 
of gold, pearls and other exotic 
treasures. There are sharks (a Great 
White with an appetite) and an 
underwater city, as well as caves to 
explore and temples to decipher. 

You are, of course, an intrepid 
adventurer off to pillage Davy Jones' 
Locker. You have a wealth of tools to 
aid in your quest, if only you can 
figure out which ones will truly be 
beneficial... There is potential barter- 
ing in the form of a pawnshop, and a 
definite need to examine everything 
you encounter. Magic works here 
both in the form of teleportation and 
of subsurface respiration, all you 
need to do is figure out how to get it 
rolling. 

What makes this Adventure par- 
ticularly interesting are the graphics. 
Bear in mind that this is an S-80 pro- 
gram and that as such it has only 



block graphics, none of that Hi-Res 
stuff. Yet the graphics are just as in- 
triguing, perhaps more so in light of 
the machine's limitations, than the 
highly touted On-Line Systems 
graphics Adventures. There is no 
animation, of course, but each pic- 
ture is well-conceived and designed. 
My own favorites are the scenes from 
the underwater city, but to each his 
own. 

Another nice feature of this 
Adventure is the voice. Often one 
finds Adventures to be too 
straightforward in the messages they 
give to the reader. One of the things 
about Scott Adams' Adventures is 
that often the messages received are 
quite tongue in cheek. This holds true 
for "Atlantian Odyssey" and pro- 
vokes a chuckle or two during play. 
If you don't believe me, try swearing 
at it when you get frustrated. 

Johnson and Li have done a nice 
job on "Atlantian Odyssey". The 
program executes quickly and 
smoothly with virtually no noticeable 
flaws. The graphics are good and the 
theme, while not the most original, is 
nevertheless entertaining and in- 
teresting. Occasionally the computer 
will ignore a command, so if it 
doesn't work the first time, do try 
again. And don't go swimming 
without the medallion! 

Dave Albert O 
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LORDS OF KARMA 



The player finds himself In a mythical, magical city to perform as many deeds of kindness and 

bravery as possible. The fun Is in the gradual deciphering of the many secrets while exploring verdant 

forests, twisting trails, rugged mountains, and labyrinthine caverns. . . and avoiding lurking monsters. 

Almost no rules to learn; you tell the computer what you want by typing simple English sentences on 

the keyboard. The computer responds with many suprises in store. Solitaire only. 

S-80 Cassette, 48K $20.00 

Apple II Cassette, 32K $20.00 

PET 32K $20.00 
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BASF FtexyDlsk 
No. 



iH # 



lore than four decades of experi- 
ence in magnetic media -BASF 
invented magnetic recording 
tape, the forerunner of today's 
wide range of magnetic media, 
back in 1934, and was the first 
independent manufacturer of 
IBM-compatible floppy disks. 



Tough Tyvek sleeve -no paper 
dust, no static electricity. 



Special self-cleaning jacket and 
liner help eliminate data errors 
and media wear and tear. 




BASF B/^FteQrtSisic 



Center hole diameter punched to 
more accurate standards than 
industry specifications, for top 
performance. 



Bi-axially oriented polyester 
substrate — for uniform and reli- 
able performance year after year. 



Cross-linked oxide coating-for 
low head wear and long trouble- 
free media life. 



Total capability— one of two man- 
ufacturers in the world that 
makes both 8" and 5.25" models, 
has tape and disk experience, and 
manufactures floppy disk drives. 



Double lubrication— lubricants 
both in the formula and on the 
disk surface, to minimize media 
wear due to head friction. 



Packaging to suit your 
requirements — standard flip-top 
box, Kassette 10® storage case, 
or bulk pack. 



100% certification — every single 
disk is tested at thresholds 2-3 
times higher than system require- 
ments, to be 100% error-free. 



For the name of your nearest 
supplier, write BAS^^ Systems, 
Crosby Drive, Bedford, 
MA 01730, or call 617-271-4030. 




BASF 



Floppy Disks Mag Cards Cassettes Computer Tapes Disk Packs Computer Peripherals 



SoftSide Selections Order Form 



n The World of Beysycx 

ATARI 



$6.95 



D Masters Golf Cassette 
D World Series Cassette 



$9.95 
$9.95 



S-80 



D APL 16K Cassette (Mod. I only) 

D APL 32K Disk (Mod. I only) 

D Column Calculator 4.1 32K Disk 

D Enhanced BASIC 16K Cassette (Mod. I) 

D Enhanced BASIC 16K Cassette (Mod. Ill) 

D Enhanced BASIC 32K Disk (Mod. I) 

n Enhanced BASIC 32K Disk (Mod. Ill) 

D Hellflre Warrior 32K Disk 

n Kriegsplel II16K Cassette 

n Lords of Karma 48K Cassette 

D Masters Golf Cassette 

D Pascal 32K Disk (Mod. I only) 

GSargon II 16K Cassette (Mod. I only) 

DSargon II 32K Disk (Mod. I only) 

DStar Trek III.5 16K Cassette 

nStarTreklll.5 32KDisk 

D Temple of Apshal 32K Disk 

D Typing Tutor 16K Cassette 

D Up Periscope 16K Cassette 

n Warpath 1 6K Cassette 

D World Series Cassette 

DX-WIng II 16K Cassette 

APPLE 

n Hayden Applesoft Compiler 
D Hellflre Warrior 48K Disk 
D Lords of Karma 32K Cassette 
DSargon II 24K Cassette 
DSargon II 48K Disk 
G Temple of Apshal 48K Disk 
DTIme Lord 48K Disk 
D World Series Cassette 
D World Series Disk 

SoftSide Back Issues 

aSoftSlde:S-80 (Magazine only) 
month/year. 



$14.95 
$39.95 
$39.95 
$69:95 $48.00* 
$69:95 $48.00* 
$58:95 $48.00 > 
$58:96 $48.00* 
$39:95 $32.00* 
$14.95 
$20.00 
$9.95 
$99.95 
$28:95 $23.95. 
$34:95 $28.95. 
$14.95 
$14.95 
$38:95 $32.00* 
$15.95 
$14.95 
$14.95 
$9.95 
$9.95 



$208:80 $175.00* 
«8:95 $32.00* 

$20.00 
S2»:9Sr$23.d5> 
$34:89 $28.95* 
$38:95 $32.00* 
$29.95 
$9.95 
$14.95 



DSoftSlderApple (Magazine only) 
month/year . 



D PROG/80 (Magazine only) 
month/year . 



.$2.50 
.$2.50 
-$4.00 



SUPER SoftSide (Magazine only) 
G August or September 1980 

(circle choice) 
D October, 1980, to present (Magazine only) 

month/year . 



D SoftSide (Magazine with Cassette programs) 
month/year. 



D SoftSide (Magazine with Disk programs) 
month/year 



$3.00 
_$3.50 
_ $9.95 
.$14.95 



'Reduced price until August 15, 1981 ONLY. 



ADD handling charges 



$1.50 



(Foreign orders minimum $10.00 handling) 



Additional charges 



TOTAL 
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Canada/Mexico Orders 

No C.O.D. to Canada or Mexico. The prefered method of payment is by Master Card 
or Visa. NO PERSONAL OR COMPANY CHECKS. A banl< ohecl( is acoeptabie if It 
has been preprinted for payment in U.S. dollars. The handling charge on all 
Canadian or Mexican orders is $5.00 PLUS actual shipping charges. 

Other Foreign Orders 

Payment must either be by a BANK CHECK drawn on a U.S. bank, payable In U.S. 
dollars or by affiliated bank credit cards of Visa or Master Card. All shipping and 
duty charges are the customer's responsibility. All overseas orders are sutiject to a 
$10.00 handling charge PLUS actual shipping charges. 

Guarantee 

All software is guaranteed to load and run. If you experience difficulties with the 
product within 30 days, the tape or disk may be returned. Call (603) 673-0585 or 
673-0586 for a Return Authorization Number. Any returns without a Return 
Authorization Number clearly marked on the outside WILL BE REFUSED. Send your 
properly protected disk or tape to the attention of Customer Service Representative 
with a note including your name and address. 

Liability 

All software is sold on an as*is basis. -SoftSide assumes no liability for loss or 
damage caused or alleged to be caused directly or Indirectly by products sold or 
exchanged by them or their distributors, including, but not limited to, any 
Interruption in service, loss of business or anticipatory profits or consequential 
damages resulting from use of operation of such software. 

Prices: 

Prices are subject to change without notice. We are not responsible lor 
typographical errors. 
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For Orders Only 603-673-0585 
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Entertainmeht Software will 
L^ never be the same.... 
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a revolutionary approach 



SoftSide-DV: 
The Magazine that Addresses 

Both of You... 
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6 5outh Straet Milford NH 03055 
For Orders Only 603-673-0585 









SoftSide, the magazine that for the past three years has brought you and your 
microcomputer the finest in BASiC ianguage software, now offers more programs 
to disit users, and the software Isn't limited to BASiC! 

Over 2,000 subscribers have dispensed with the hours of typing by receiving our 
programs for the S-80, Apple, and Atari on disit and cassette along with the printed 
magazine, but convenience is only the beginning for SoftSide-DV. Now you'll 
receive all the programs in the mao^^rnj^elf and a host of others, including 
Machine Language and hybrid fm^(ffi^Wfft;-fl^ programs that we could never 
print on paper. We will offer cqm . ] LWJ. ffiffTi^o f every conceivable type and 
ongoing data bases. We will verUII^LWJ^^MinKlfied languages, new versions 
of BASIC authored speciflcaiigQ^rnjnQ^Biuter, l-$trlng programs with 
new data bases every month lliHftlllgllBfflWfgl o enjoy puzzles, games and 
adventures without having to tjTQj^Q^QIT^have them half-solved before 
you ever ^^H^I^Hr 

If you don't believe we can deliv SWiff P^WTOmlslnn. try us out on a one-time 
basis: a full disk of programs for ST^^iEllSKse If you subscribe, the cost will 
be substantially less: Until August 31st we will offer a full year's subscription to 
SoftSide-DV for a mere $99.95, that's $8.33 per disk, and you get the magazine to 
boot! 

For your convenience, we offer an Installment plan for IVIastercard and Visa 
card holders: You pay $32.50 per quarter (there Is a $5 charge for this service). For 
orders outside the U.S.A. please add $18. if you currently receive the magazine, we 
will credit the remainder of your subscription to a new SoftSlde-DV order. 

All subscribers to SoftSide-DV will receive at least one disk full of programs as 
well as SoftSide magazine, guaranteeing you not only the best software for your 
microcomputer, but the least expensive as well. It's our way of inviting you to step 
into the future. 

Be sure to specify the type of computer your SoftSide-DV subscription is for. 



